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A METHOD  FOR  AUTOMATIC  TEST  AND  EVALUATION 
OF  MICROWAVE  TRANSCEIVERS  AT  L-BAND  FREQUENCIES 


Introduction 


The  advent  of  the  practical  phased  array  radar  Introduced  the  need 
for  complex  testing  and  thorough  statistical  analysis  Into  the  microwave 
Industry.  The  voluminous  quantities  of  data  required  on  each  device 
coupled  with  the  redundancy  of  devices  used  on  even  a single  system  made 
the  use  hf  automatic  microwave  test  systems  mandatory,  not  optional. 

The  long  test  and  evaluation  cycle  reqiilred  for  acquiring  large 
quantities  of  data  coupled  with  the  uniqueness  of  each  device  has  In 
tuxm  created  a serious  financial  burden  on  most  manufacturers  who  cannot 
justify  the  purchase  and/or  fabrication  of  such  equlpsient  based  upon 
anticipated  demands. 

The  gathering  of  data  on  a single  device  Is  only  the  first  step  In 
a chain  of  statistical  analyses.  Individual  limits  must  be  Imposed  upon 
eaedi  device  produced  to  assure  quality  control  but  In  a system  using 
hundreds  of  even  thousands  of  the  same  device  (such  as  Is  experienced  In 
phased  arrays)  then  only  the  aggregate  performance  Is  Important  to  the 
system.  Thus  through  the  test  of  Individual  devices,  system  performance 
can  be  predicted  and  as  the  data  base  Is  Increased,  the  Importance  of 
Individual  parameters  on  the  system  can  develop  Into  higher  quality  and 
more  cost  effective  products. 

This  report  describes  the  effort  expended  at  the  Naval  Research 
Laboratory  In  the  attainment  of  an  automatic  teat  facility  capable  of 
acquiring  Individual  device  data  and  the  reduction  of  such  data  Into 
terms  suitable  for  system  statistics. 

This  effort  has  been  concentrated  primarily  at  L-band  frequencies 
and  on  transmit/receive  devices,  the  latest  device  being  such  a trans- 
ceiver now  In  production  by  the  General  Electric  Coiiq>any,  Aircraft 
Equipment  Division,  Utica,  New  York  for  the  Naval  Air  Development 
Center,  Warminster,  Pennsylvania  (Dr.  J.  Smith,  Code  20A0) . 

The  Device  Under  Test 

In  order  to  reduce  the  conqilex  testing  required  to  manageable 
proportions.  It  Is  necessary  to  specifically  tailor  the  test  program 
to  the  unique  device  under  test  and  to  eliminate  operator  Interaction 
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or  reduce  this  Interaction  to  a minimum.  Towards  this  goal  a thorough 
understanding  of  the  device  parameters  to  be  evaluated  and  the  condi- 
tions of  test  Is  indicated  as  well  as  an  understanding  of  microwave 
testing  techniques. 

The  device  that  Is  being  considered  In  this  report  Is  a transceiver, 
used  in  a phased  array  radar  at  L-band,  under  pulse  transmit  conditions. 
In  addition  to  microwave  circuitry  such  as  circulators,  switches,  and 
amplifiers,  the  device  employs  a 5 bit  (32  state)  electronic  phase 
shifter,  and  a 3 bit  (8  state)  electronic  step  attenuator.  Within  the 
transceiver  structure  Is  the  necessary  electronic  clrctiltry  to  trans- 
late Incoming  digital  signals  Into  appropriate  performance  commands. 

It  Is,  therefore,  necessary  to  gather  performance  data  under  the 
following  test  modes: 

transmit 

receive 

over  frequency 
over  phase 

over  attenuation  (receive  only) 

over  teiiq>erature 

over  supply  voltages 

over  Input  power  (transmit  only) 

In  addition,  a typical  device  may  be  required  to  operate  under 
various  coinblnatlons  of  PRF  and  pxilse  width  during  transmit  which 
greatly  aidds  to  the  amount  of  data  required  to  verify  system  perform- 
ance capability. 

Referring  to  the  above  list  the  number  of  data  points  considered 
necessary  and  adequate  for  the  transceiver  amounted  to  2304  for  receive 
and  864  for  transmit  for  each  temperature/voltage  combination  during 
acceptance  with  a total  of  20736  receive  and  7776  transmitter  data 
points  per  transceiver  module  during  qualification. 

It  can  therefore  be  seen  that  entering  Into  such  a test  endeavor 
without  an  adequate  test  sequence  and  plan  or  without  adequate  test 
facilities  can  lead  to  chaos. 

Microwave  Tests.  The  number  and  kind  of  microwave  measurements  are 
quite  limited  but  from  these  limited  number  of  measurements  much  data 
can  be  extracted.  In  automatic  microwave  measurement,  after  appro- 
priate calibration.  It  Is  possible  to  measure 

a.  A]iq)lltude  and  angle  of  reflected  power 

b.  Amplltxide  and  angle  of  transmitted  power 

Many  systems,  such  as  the  Hewlett-Parkcard  Automatic  Network 
Analyser  define  a set  of  device  S-parasmters  from  which  the  typical  RF 
terms  can  be  derived.  In  addition,  dependent  on  the  type  of  device  to 
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be  evaltiated,  it  Is  possible  to  vary  the  calibration  model  and  therefore 
the  correction  factors  applied  to  tha  device  under  test. 

In  each  case,  however,  the  four  basic  bits  of  Information  are  used 
to  derive  all  necessary  data.  VSWR  Is  derived  from  the  reflective 
properties.  Gain  (or  loss)  Is  derived  from  transmission  magnitude  and 
such  properties  as  differential  phase  and  differential  attenuation  are 
derived  from  various  sets  of  transmission  data.  It  Is  Insufficient  to 
just  derive  the  S parameter  values;  It  Is  necessary  that  data  processing 
be  Incorporated  Into  any  program  to  permit  evaluation. 


Reference  Line 


I Unit  I 

I 1 Under  I — I 


and 

Conparlson 


Test  by  comparison  test  method 


The  measurement  system.  Both  microwave  automatic  measurement  systems 
used  for  the  measurements  described  In  this  report  are  similar  In 
method,  although  quite  diverse  In  design  particulars.  Referring  to 
Figure  1,  the  RF  signal  Is  divided  Into  two  paths,  one  to  be  used  as  a 
reference,  the  other  as  a signal  for  the  unit  under  test  (UUT) . In 
addition,  the  reflected  wave  at  the  Input  to  the  UUT  Is  sampled. 

To  determine  a complete  set  of  S parameters,  both  phase  and  ampli- 
tude of  the  various  signals  must  be  known,  first  over  all  measurement 
frequencies  under  calibrate  conditions  with  no  UUT  In  the  line  from 
which  system  correction  factors  are  determined  and  then  repeated  at  the 
measurement  frequencies  with  the  UUT  In  the  line. 

The  Hewlett-Packard  (HP)  system  accomplishes  the  measurement 
sequence  by  switching  the  phase  and  amplitude  measuring  hardware 
between  the  various  test  points  (reflected  Input  and  output) . It  Is 
thus  necessairy  to  double  the  number  of  measurement  or  data  points  that 
must  be  obtained  from  the  numbers  listed  above. 

i 

1 

The  HP  system  Is  designed  for  CW  operation  only  and  this  type  of  I 

measurement  system  Is  not  acceptable  when  high  power  pulse  measurements  ] 

are  to  be  made.  The  Sclent If Ic-Atlanta  (SA)  measurement  system,  which  j 

uses  a different  method  of  detection  and  signal  processing,  with 

reduced  accuracy  Is  used  for  measurement  of  pulse  signals.  In  this  case  1 

transmit  signals  associated  with  the  transmit  section  of  the  UUT.  ! 

i 

In  addition,  the  Naval  Research  Laboratory  has  modified  this  j 

equipment  so  that  the  Input  power  can  be  leveled  at  each  frequency  to 
predetermined  values  for  evaluation  of  such  devices  that  are  sensitive 

to  Input  power  especially  those  operating  In  a non-llnear  mode  (class  I 

C transmit  operation  for  the  UUT) . Also , the  addition  of  pulse  peak 
power  meters,  to  measure  forward  power  before  and  after  the  device 

under  test  and  the  Input  reflected  power  permits  the  measruement  of  I 

powers  by  sampling  (80  nsec)  the  pulse  poirar.  The  sampling  window  ' 

can  be  moved  through  the  RF  pulse  time  and  does  not  operate  on  the 

basis  of  averaging  techniques  as  does  the  SA  equipment.  j 

1 

Transmission  and  reflection  properties  of  the  UUT  are  measured 
simultaneously  with  this  equipment,  therefore,  switching  Is  not  | 

required.  It  Is  necessary,  however,  to  measure  at  each  data  point, 
a series  of  five  measurements,  which  are  averaged  to  reduce  Instantan- 
eous errors  and  eliminate  erroneous  measurements.  This  then  means  that 
the  number  of  sequential  measurements  becomes  80,352  for  qualification  j 

of  each  UUT  and  8,928  for  acceptance.  I 

I 

In  addition  to  the  signal  measurement  hardware,  there  Is  associa- 
ted with  the  overall  control  system,  a set  of  control  hardware  used  with  ’ 

the  UUT,  and  redesigned  and/or  modified  as  required  for  each  device  and  { 

test  plan  that  has  for  Its  prime  function  control  of  the  UUT.  This  j 

control  Includes  the  necessary  switching  of  the  various  module  functions  j 
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such  as  transmlt/recelve,  phase  shift  and  attenuation,  by  the  generation 
of  the  necessary  code  sequences  under  computer  control  and  also  the 
generation  and  control  and/or  monitoring  of  the  various  supply  voltages 
and  operating  temperatures.  See  appendix  IV  for  detail  schematics  of 
this  special  test  equipment  and  other  equipments  designed  at  NRL  speci- 
fically for  this  application. 

The  entire  system  In  simplified  block  diagram  form  Is  shovn  In 
Figure  2. 

The  measurement  program 

All  measurement  programs  are  generated  in  either  FORTRAN  for 
main  programs  or  In  assembly  language  for  I/O  drivers. 

The  listings  of  the  actual  programs  are  Included  as  appendices  I,  II, 
and  III  to  this  report.  However,  it  should  be  mentioned  here  that  the  ser 
quence  of  measurement  events  has  proved  very  Inqjortant  to  the  efficient  use 
of  the  test  time.  Some  parameters,  when  changed,  require  longer  periods 
for  switching  or  settling,  therefore  they  should  be  changed  a minimum 
during  any  test  sequence.  The  sequence  chosen  (where  applicable)  Is, 
from  least  varied  to  most  varied: 

V^tage*”^^^}  change  - automatic  monitoring 

Attenuation  - Receive  only 

"S”  parameter  - Receive  only 

Input  power  - Transmit  only 

Frequency 

Phase 

Attenuation  In  the  above  list  Is  out  of  time  sequence  because  of 
the  limitation  of  memory  size.  Although  the  attenuation  command  Is 
loaded  Into  the  device  along  with  each  phase  command,  the  attenuation 
command  Is  varied  such  that  the  acquired  data  from  all  other  variables 
Is  transferred  to  bulk  storage  between  each  change. 

Input  power  requires  further  comment  In  that  the  power  leveling 
circuit  is  a computer  based  digital  servo  loop  that  can  be  programmed 
to  the  desired  power  level,  turned  off,  held  at  a predetermined  feed- 
back voltage,  and  Initialized  to  predetermined  limits.  This  loop  has 
Its  own  Interrupt  system  thus  making  It  Independent  of  the  normal  pro- 
gram sequence.  The  data  update  rate  Is  600  per  second  maximum  which 
does  not  appreciably  alter  the  normal  program  function. 

Programs  and  any  other  special  command  functions  are  entered  by  way 
of  keyboard  or  magnetic  tape  cassette.  Data  Is  output  to  reel  type  mag- 
netic tape.  Each  file  of  data  first  references  a serial  number  followed 


6 


■ / * 


by  pertinent  test  parameters  so  that  a tape  can  be  easily  searched  for 
the  desired  file.  The  appendices  include  program  listings  for  searching 
transmit  or  receive  data  tapes,  extracting  the  desired  data  and  proces- 
sing the  data  in  a similar  manner  to  the  main  program. 

I Data  processing  and  output 

I It  is  desirable  to  store  the  data  obtained  in  raw  form  on  magnetic 

tape  for  future  processing  ana  generation  of  overall  statistics  but  it 
is  likewise  necessary  for  Immediate  use  that  a summary  listing  be  made 
i available.  Many  forms  could  be  generated  including  curves  and  histo- 

grams but  the  quantity  of  print-out  can  rapidly  reach  uncontrollable 
proportions. 

For  this  reason  it  was  decided  that  the  raw  data  as  delivered  by 
the  test  system  would  be  processed  into  the  various  specification  para- 
meters and  presented  in  tabular  form.  Because  of  the  statistical  nature 
of  the  application  for  the  units  to  be  evaluated  much  of  the  data  is 
printed  out  in  terms  of  statistical  information. 

In  addition  a keyboard  switch  option  was  Included  in  the  program 
I that  generates  a long  form  print  out  where  in  addition  to  the  summary 

data,  information  at  each  frequency-phase  state  is  given.  This  long 
form  print  out  is  forced  when  power  output  under  transmit  test  condi- 
tions reaches  a level  that  causes  large  measurement  errors  (i.e.  0 dBm) 

I so  that  the  operator  is  immediately  aware  of  the  type  of  error  and  then 

can  properly  evaluate  the  statistical  parameters. 

A listing  of  the  short  form  print-out  is  given  in  Figure  3 and  the 
long  form  is  given  in  Figure  4. 

Conclusions . With  the  complexity  of  test  and  the  number  of  data  points 
necessary  for  a meaningful  statistical  analysis,  the  use  of  manual  test 
equipment  requiring  much  operator  interaction  is  prohibited. 

5 Thus  for  production  components,  or  those  that  are  to  be  produced  in 

j quantity  where  repeated  similar  tests  are  to  be  performed,  the  computer 

I based  test  facility  with  data  processing  and  storage  is  indicated.  Not 

! only  can  immediate  data  be  obtained  but  the  stored  data  can  be  processed 

i at  a later  date  in  ways  specifically  meaningful  to  the  end  system  use  as 

well  as  in  the  form  of  useful  statistics  on  classes  of  devices. 
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.6DEG  .f 

t 

NONE 

j 

INPUT  P0U1ER  = 24 . 8DEM  . 

FREQ.  1235 

1260 

1280 

12  9 5 

13  0 0 

1305 

1320 

1340 

1 365 

I 

j 

.00  DEG. 

1 

i 

VSUR 

$$$$$ 

$$$$$ 

f-  $ $ $ 3 

$$  t St- 

ttttt 

S t St  S 

tssts 

33333 

1 

MfiX-prjR-U  .0 

. 0 

. 0 

. 0 

. 0 

. 0 

.0 

.0 

.0 

1 

IPHS 

m 

. 

s 

. 

3 6 01  . 

360  . 

36  0 . 

360  . 

11.25  DEG. 

I 

VS UR 

■$$$$.$ 

$ $ $ f $ 

$$$$$ 

ttttt 

3 $ T $ 3 

$$$$$ 

stsst 

3 3 3 3 3 

MRX-PUR-U  .0 

.0 

. 0 

.0 

.0 

. 0 

. 0 

.0 

.0 

DEL  PHRSE  -.0 

.0 

- . 0 

.0 

.0 

- . 0 

.0 

- . 1 

- . 1 

22.50  DEG. 

. VSUR 

$$$$$ 

$$$ 

ttstt 

tStft 

33333 

33333 

nPX-PUR-U  .0 

.0 

. 0 

.0 

. 0 

.0 

. 0 

.0 

.0 

DEL  PHASE  -.1 

. 0 

. 0 

. 0 

- . 0 

- . 0 

.0 

- . 0 

- . 1 

33.75  DEG. 

VSUR  f 

$$$$$ 

3:$  $$$ 

$S$$t 

$$ttt 

stsst 

33333 

33333 

M R X - P U R - W .0 

. 0 

. 0 

. 0 

. 0 

.0 

.0 

.0 

. 0 

DEL  PHRSE  -.0 

.0 

. 0 

.0 

. 0 

.0 

.0 

. 0 

.0 

45.00  DEG. 

, 

VSUR  $ $ $ $ $ 

$ $ f f f 

$■$$$$ 

tstts 

$$$$$ 

stsst 

stsst 

33333 

. 

M fl  X - P U R - U .0 

.0 

.0 

. 0 

, 0 

. 0 

..0 

.0 

. 0 

DEL  PHRSE  -.0 

. 0 

. 1 

. 0 

. 0 

. C 

.0 

- . 0 

- . 0 

56.25  DEG. 

VSUR  $$$$$ 

$$$$.$ 

■$$$$$ 

tttst 

tssts 

33333 

33333 

MRX-PUR-U  .0 

. 0 

. 0 

.0 

. 0 

. 0 

.0 

. 0 

.0 

DEL  PHRSE  -.0 

. 0 

.0 

.0 

- . 0 

- .0 

.0 

. 0 

- .0 

67.50  DEG. 

VSUR  $$$$$ 

$$$$$ 

t $ St  t 

tstst 

stsst 

tssts 

33333 

MflX-PUR-U  .0 

. 0 

.0 

.0 

. 0 

. 0 

. 0 

.0 

.0 

DEL  PHRSE  -.1 

. 0 

. 0 

. 0 

. 0 

. 0 

- . 1 

- .0 

- . 1 

73.75  DEG  . 

VSUR  $$$$$ 

$$$$* 

$$$$$ 

$$$$$ 

tsttt 

ttttt 

tssts 

33333 

33333 

N fl  X - P U R - U .0 

. 0 

. 0 

. 0 

. 0 

.0 

.0 

. 0 

. 0 

DEL  PHASE  -.0 

.0 

. 0 

- . 0 

- . 0 

- . 0 

- .0 

- . 0 

- .0 

. 

90.00  DEG. 

VSUR 

$$$$$ 

$$$$$ 

$ s;  T 3 $ 

ttttt 

St  $$'S 

stsst 

3 3 3 3 3 

33333 

MflX-PUR-U  .-0 

. 0 

. 0 

.0 

.0 

.0 

. 0 

. 0 

. 0 

DEL  PHRSE  . .0 

. 0 

~ . 0 

.0 

- -Q 

- . 0 

- .0 

- . 0 

- . 1 

101.25  DEG. 

VSUR 

$$$$$ 

ststt 

$3$$$ 

stsst 

stsst 

33333 

M fi  X - P W R - U .0 

.0 

. 0 

. 0 

. 0 

.0 

.0 

.0 

.0 

DEL  PHASE  -.0 

. 0 

. 0 

. 0 

. 0 

. 0 

- .0 

- . 1 

- .0 

. 112.50  DEG. 

VSUR 

f $ 

$ $ 3:  $ $ 

$ $ $ 3 $ 

sssss 

tssts 

tssts 

33333 

riflx-PWR-u  .0 

. 0 

. 0 

. 0 

. 0 

. 0 

.0 

. 0 

.0 

DEL  PHASE  -.0 

. 0 

. 0 

. 0 

.0 

- .0 

- .0 

- . 1 

- . 0 

12.3.7  5 DEG. 

' 

VSUR  • 

? $ $ $ 5 

tssts 

$ f $ t 

3 333:3: 

33333 

33333 

MRX-PUR-U  .0 

. 0 

. 0 

. . 0 

. 0 

.0 

. 0 

.0 

.0  ' 

DEL  PHASE  -.0 

. 0 

. 0 

. 0 

. 0 

. 0 

- .0 

- . 1 

- .0 

" 135.00  DEG  . 

VSUR 

i 

t tt'f-S 

333  3 3 

3 3 3 3 3 

33333 

MflX-PUR-U  .0 

.0 

.0 

. 0 

.0 

.0 

. 0 

.0 

.0 

DEL  PHRSE  .0 

. 0 

. 0 

- .0 

- .0 

.0 

- .0 

- . 1 

- . 1 

Fig.  4 - Long  form  datn  printout  for  transmitter  and  receiver 
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J 

146.25 
VSUR 

HfiX-PUR-U 
UtL  PHASE 

157.50 

V S W R 

riPM-PVR-U 
DEL  PHASE 
1 6 S . f'  5 
VSUR 

MflX-PWR-l.J 
DEL  PHASE 

150 .00 
VSUR 

M AX-PUR- W 
DEL  PHASE 
191  .25 
VSUR 

MAX-PUR-U 
DEL  PHASE 

202.50 
VSUR 

MAX-PUR-U 
DEL  PHASE 

213 .75 
VSUR 

MAX-PUR-U 
DEL  PHASE 

225.00 
VSUR 

MAX-PUR-U 
DEL  PHASE 

236 .25 
VSUR 

MAX-PUR-U 
DEL  PHASE 

247.50 
VSUR 

MAX-PUR-U 
DEL  PHASE 

253 .75 
VSUR 

MAX-PUR-U 
DEL  PHASE 

270.00 

V S U R 

MAX-PUR-U 
DEL  PHASE 

231.25 
VSUR 

MAX-PUR-U 
DEL  PHASE 

292.50 
VSUR. 
MAX-PUR-U 
DEL  PHASE 

303 .75 

V i U R 

M A X - P U P - U 
DEL  =■  H A .3  E 


DEG  . 
$$$$$ 
.0 

- .0 
DEG  . 

. 0 

- .0 
DEG  . 

.0 

- . 0 
DEG  . 
$$$ 

.0 

- , 1 

DEG  . 
$$$$$ 
.0 
- .0 
DEG  . 
$$$$$ 
.0 
- .0 
DEG  . 

.0 
. 0 

DEG  . 
$$$$$ 

. 0 

- .0 
DEG  . 

.0 

- .0 
DEG  . 
$$$$$ 
.0 
- .0 
DEG  . 

.0 

- . 1 
DEG  . 
$$$$$ 
.0 
- . 0 
DEG  . 

.0 

- . 1 

DEG  . 

.0 

- .0 
DEG  . 

. 0 
.0 


$$$$$  $$$$$  $$$$$  $$$*$  $$*$s  *$$$» 

.0  .0  .0  .0  .0  .0  .0  .0 

.0  .0  .0  .0  -.0  .0  -.1  -.1 

$$$$$  $$$$.$  $$$$*  t*sst 

.0  .0  ••6.  •0-  .0  .0  .0  .0 

.0  .0  .0  .0  -.0  -.1  -.2  -.1 

$$$$#  $$s$$  $$<:$$ 

.0  .0  .0  .0  .0  .0  .0  .0 

.0  -.0  .0  -.0  -.0  -.0  -.2  -.1 

$$$$$  $$$$$  $$t$$  $$$$$  $$$«$  $$$Sf 

.0  .0  .0  .0  .0  .0  .0  .0 

.0  .0  -.0  .0  .0  -.0  -.2  -.2 

$$$$$  $$$$$  $$$$$  $$$$$  $$$$*  1 9 $$f.  tt$$$ 

.0  .0  .0  .0  .0  .0  .0  .0 

.0  .0  -.0  .0  -.0  -.0  -.2  -.1 

$$$$$  $$$$$  $$$$$  $$$$*  $$$$f  $$$f$  £$$$$  $$$$$ 

.0  .0  .0  .0  .0  .0  .0  ,0 

.0  .0  .0  .0  — .0  — .0  -.2  — .1 

$$$$$  $$$$$  $$$$$  $$$$$  $$$$$  $$$$$ 

.0  .0  .0  .0  .0  .0  .0  .0 

.0  .0  .0  -.0  -.0  -.0  -.2  -.0 

$*$$$  $$$$*  $$$:$$  $$$£$: 

.0  .0  .0  .0  .0  .0  .0  .0 

.0  .0  .0  .0  -.1  -.0  -.2  -.1 

$$$$$  $$$$$  $$$$$  $$$$$ 

.0  .0  .0  .0  .0  .0  .0  .0 

.0  .0  .0  - .0  - . 1 - .0  ' - .2  .0 

$$$$$  $$$$$  $$*$$  $$$$$  $$$$$  $$  if  $$$$* 

.0  .0  .0  .0  .0  .0  .0  .0 

.0  .1  -.3  .0  .0  -.0  -.2  -.1 

$$$$$  $$«$f  $$$$* 

.0  .0  .0  .0  .0  ,0  .0  .0 

.0  -.0  .0  .0  .0  - .0  -.2  .0 

$$$$$  $$$$$  $$$$$  $$$*#.  $$$$t 

.0  .0  .0  .0  .0  .0  .0  .0 

.0  .1  .0  360 .0  ,0  -.0  -.1  -.0 

t$f$$  $$$$$  $$$$$  f$$f$  $$$$$ 

.0  .0  .0  .0  .0  .0  .0  .0 

.0  -.0  .3360.0  -.1  .0  -.2  .0 

:?$$$$  $$$$$  $$$$$  $$$$$ 

.0  .0  .0  .0  .0  .0  .0  .0 

.0  .0  -.9  360.0  -.0  -.1  -.2  -.1 

5:5 

.0  .0  .0  . e • .0  .9  .0  .0 

.2  .0  -.0360.0  -.0  .0  -.1  -.0 
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. RECEIVER 


SER.NO.  001 
DOTE;  MAY  20,1977 
VOLTl=-l  1 .090  V0LT2=  23.899 

TEMPI*  24.9DEG.C  TEHP2=  -24.9DEG.C 

TAPE  TEST,  AS  CALIBRATED  XXX 

ATTNUATION*  2rB. 


FREQ  . 

1235 

1260 

1280 

1295 

13  00 

13  05 

1320 

1340 

1365 

.00 

DEG 

s 

VS  (JR 

1 

.04 

1 .04 

1 .04 

1 .04 

1 .04 

1 .04 

1 .05 

1 .05 

1 

.05 

CAIN-DB 

.0 

- .0 

- .0 

- .0 

- . 0 

- .0 

- .0 

- .0 

- .0 

IPHS 

- 

18  . 

-18. 

-19  . 

-19. 

-19. 

-19  . 

-19  . 

-19. 

- 

20  . 

11.25 

DEG 

■ 

VSWR 

1 

.04 

1 .04 

1 .04 

1 .04 

1.04 

1 .04 

1 .05 

1 .05 

1 

.05 

GAIN-DE 

.0 

.0 

- .0 

- .0 

- . 0 

- . 0 

- . 0 

- .0 

- .0 

DEL  PHASE 

- .0 

- .0 

- . 1 

- , 0 

.0 

.0 

.0 

.0 

. 0 

22.50 

DEG 

• 

VSUR 

1 

.04 

1 .04 

1 .04 

1 .04 

1 .04 

1.04 

1 .05 

1 ,05 

1 

.05 

GAIH-DE 

.0 

- . 0 

. 0 

- .0 

- .0 

- .0 

- .0 

- .0 

- .0 

DEL  PHASE 

- .0 

- .0 

- . 0 

- .0 

.0 

- .0 

. 0 

.0 

.0 

33.75 

DEG 

• 

VSWR 

1 

.04 

1 .04 

1 .04 

1 .04 

1 .04 

1 .04 

1 .05 

1.05 

1 

.05 

GAIN-DB 

.0 

.0 

.0 

- .0 

- .0 

- .0 

- .0 

- .0 

- .0 

DEL  PHASE 

.0 

- .0 

- . 1 

- .0 

- .0 

- .0 

. 0 

.0 

.0 

45.00 

DEG 

• 

VSWR 

1 

,04 

1 .04 

1.04 

1 .04 

1.04 

1 .04 

1 .05 

1 .05 

1 

.05 

GAIM-DB 

.0 

- .0 

, 0 

- . 0 

- . 0 

- . 0 

- . 0 

- .0 

- .0 

BEL  PHASE 

- .0 

- . 0 

- . 0 

- . 0 

. 0 

. 0 

. 0 

. 0 

.0 

56 .25 

DEG 

• 

VSWR 

1 

.04 

1 .04 

1 .04 

1 .04 

1 .04 

,1.04 

1 .05 

1 .05 

1 

.05 

GRI H-DB 

.0 

- .0 

.0 

- . 0 

- . 0 

- . 0 

- . 0 

- .0 

- . 0 

DEL  PHASE 

.0 

- .0 

- .0 

- .0 

- . 0 

- . 0 

- .0 

.0 

.0 

67 .50 

DEG 

• 

VSWR 

1 

.04 

1 .04 

1 .04 

1 .04 

1 .04 

1.04 

1 .05 

1 .05 

1 

.05 

GRI H-DB 

.0 

- .0 

. 0 

- .0 

- .0 

- . 0 

- .0 

- .0 

- .0 

DEL  PHRSE 

- .0 

- .0 

- . 0 

- . 0 

. 0 

. 0 

.0 

.0 

.0 

78 .75 

DEG 

■ 

VSWR 

1 

.04 

1 .04 

1 .04 

1 . 04 

1 .04 

1 .04 

1 .05 

1 .05 

1 

.05 

G R I H - D E 

.0 

- .0 

- .0 

- .0 

- . 0 

- . 0 

- . 0 

- . 0 

- .0 

DEL  PHASE 

- .0 

- .0 

- . 1 

- . 0 

. 0 

. 0 

.0 

.0 

.0 

90 .00 

DEG 

• 

VSWR 

1 

.04 

1 .04 

1 .04 

1 .04 

1 .04 

1 .04 

1 .05 

1 .05 

1 

.05 

6RIN-DB 

.0 

- .0 

. 0 

- . 0 

- . 0 

- .0 

- .0 

- .0 

- .0 

DEL  PHRSE 

- . 0 

- .0 

- . 0 

— . 0 

.0 

.0 

.0 

.0 

.0 

101.25 

DEG 

• 

VSWR 

1 

.04 

1 .04 

I .04 

1 .04 

1 .04 

1.04 

1 .05 

1 .05 

1 

.05 

GRI H-BB 

. 0 

.0 

. 0 

- .0 

- .0 

- .0 

- .0 

- .0 

- .0 

DEL  PHASE 

- .0 

- . 0 

- .0 

- . 0 

.0 

.0 

.0 

.0 

112.50 

DEG 

• 

V S W R 

1 

.04 

1 .04 

1 .04 

1.04 

1 .04 

1 .04 

1 .05 

1 .05 

1 

.05 

G R I H - D B 

.0 

- .0 

- . 0 

- . 0 

- .0 

- . 0 

- . 0 

- .0 

- .0 

DEL  PHASE 

- . 0 

- . 0 

- . 1 

- . 0 

. 0 

- , 0 

- . 0 

.0 

.0 

123.75 

DEG 

« 

VSWR 

1 

.04 

1 .04 

1 .04 

1 .04 

1 .04 

1 .04 

1 .05 

1 .05 

1 

.05 

G R I H - D E 

.0 

.0 

- .0 

- .0 

- .0 

- .0 

- .0 

- . 0 

- .0 

DEL  PHRSE 

- .0 

- .0 

- . 0 

- . 0 

. 0 

.0 

- . 0 

.0 

.0 

135.00 

DEG 

. 

V S W R 

1 

.04 

1 .04 

1 .04 

1 .04 

1 .04 

1 . 04 

1 .05 

1.05 

1 

.05 

CR I H-DE 

. 0 

- . 0 

. 0 

- . C 

- .0 

- . 0 

- . 0 

- . 0 

- .0 

Fig.  4 (Continued)  * Long  form  data  printout  for  transmitter 
and  receiver  sections  of  transceiver  module 
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DEL  PHASE 

- 

.0 

- 

.0 

- 

. 1 

- .0 

- . 0 

- .0 

.0 

146.25 

DEC 

e 

V S W R 

1 

■ 

04 

1 

. 

04 

1 . 

04 

1 .04 

1.04 

1.04 

1 

. 

0 5 

1 

GflIN-DE 

* 

. 0 

.0 

. 0 

- . 0 

- . 0 

- . 8 

- 

. 0 

DEL  PHASE 

- 

. 0 

- 

. 0 

- 

. 0 

- . 0 

- . 0 

. 0 

- 

. 0 

157.50 

DEG 

s 

VSWR 

1 

B 

04 

1 

. 

04 

1 . 

04 

1.04 

1.04 

1 .04 

1 

. 

05 

1 

GR I N-DB 

.0 

- 

.0 

- 

.0 

- .0 

- . 0 

- . 0 

- 

.0 

DEL  PHRSE 

- 

. 0 

- 

.0 

- 

. 1 

- . 0 

. 6 

.0 

. 0 

168.75 

DEG 

s 

VSUR 

4 

1 

■ 

04 

1 

04 

4 

i B 

04 

1 .84 

1 .04 

1 .04 

1 

. 

05 

1 

GRIN-DB 

.0 

.0 

- 

. 0 

- . 0 

- . 0 

- . 0 

- 

.0 

DEL  PHRSE 

- 

. 0 

- 

.8 

- 

.0 

- . 0 

- . 0 

. 0 

- 

.0 

180.00 

PEG 

• 

VSWR 

1 

s 

04 

1 

■ 

04 

1 . 

04 

1.04 

1 .04 

1 .04 

1 

05 

1 

GflIN-DB 

.0 

.0 

- 

.0 

- .0 

- .0 

- .0 

- 

.0 

DEL  PHRSE 

- 

.0 

- 

. 0 

- 

.0 

- .0 

. 0 

- .0 

- 

.0 

191  .25 

DEG 

B 

VSWR 

1 

S 

04 

1 

s 

04 

1 . 

04 

1 .84 

1.04 

1.04 

1 

B 

03 

1 

GflIN-DB 

.0 

.0 

- 

.0 

- . 0 

- . 0 

- . 0 

- 

.0 

DEL  PHRSE 

- 

.0 

- 

.0 

- 

. 1 

- .0 

. e 

.0 

. 0 

202.50 

DEG 

B 

VSWR 

1 

S 

04 

1 

04 

1 . 

04 

1 .04 

1 .04 

1 .64 

1 

05. 

1 

GRIN-DB 

.0 

.0 

- 

. 0 

- .0 

- . 0 

- .0 

- 

. 0 

DEL  PHASE 

- 

. 0 

- 

.0 

- 

. 1 

- . 0 

.6 

- .0 

.0 

213.75 

DEG 

B 

VSWR 

1 

■ 

04 

1 

• 

04 

1 . 

0 4 

1 .04 

1 .04 

1 .04 

1 

. 

05 

1 

GflIN-DB 

.0 

.0 

- 

. 0 

- . 0 

- . 0 

- .0 

- 

. 0 

DEL  PHASE 

- 

.0 

- 

.0 

- 

. 1 

- .0 

. 0 

- .0 

- 

.0 

225.00 

DEG 

• 

VSWR 

1 

B 

04 

1 

B 

04 

1 . 

04 

1 .04 

1 .04 

1 .04 

4 

X 

. 

05 

1 

GflIN-DB 

.0 

- 

.0 

- 

. 0 

- . 0 

- .0 

- .0 

- 

.0 

DEL  PHASE 

- 

.0 

- 

. 0 

- 

. 1 

- , 8 

- . 0 

- . 0 

.0 

236 .25 

DEG 

e 

VSWR 

1 

■ 

0 4 

1 

84 

1 . 

04 

1.04 

1.04 

1 .04 

1 

. 

0 5 

1 

Gfl I N-DE 

.0 

.0 

. 0 

- . 0 

- . 0 

- . 0 

- 

. 0 

DEL  PHASE 

- 

.0 

- 

.0 

- 

.0 

- . 0 

.0 

- .0 

- 

.0 

247.50 

DEG 

VSWR 

1 

04 

1 

B 

04 

1 . 

@4 

1 .04 

1 .04 

1 .04 

1 

. 

05 

1 

GRIN-DB 

.0 

- 

.0 

- 

. 0 

- . 0 

- . 0 

- . 0 

- 

. 0 

DEL  PHASE 

- 

.0 

- 

.0 

. 0 

- . 8 

. 0 

.0 

.0 

258 .75 

DEG 

a 

VSWR 

1 

• 

04 

1 

04 

1 . 

04 

1.04 

1 .04 

1 .04 

1 

05 

1 

Gfl I N-DE 

. 0 

- 

. 0 

.0 

- . 0 

- .0 

- .0 

- 

. 0 

DEL  PHASE 

- 

.0 

- 

.0 

- 

.0 

- .0 

- .0 

- .0 

.0 

270 .00 

DEG 

e 

VSWR 

1 

e 

04 

1 

S 

04 

1 . 

04 

1 .84 

1 .04 

1 .04 

1 

. 

05 

1 

Gfl I N-DB 

.0 

- 

. 0 

. 0 

- . 0 

- . 0 

- . 0 

- 

.0 

DEL  PHASE 

- 

.0 

- 

.0 

- 

. 0 

- . 0 

- . 0 

- . 0 

. 0 

281  .25 

DEC 

• 

VSWR 

1 

• 

04 

1 

B 

0 4 

1 . 

04 

1.04 

1 .04 

1.04 

1 

a 

05 

1 

G fl  I N - D E 

.0 

- 

.0 

- 

. 0 

- . 0 

- . 0 

- . 0 

- 

. 8 

DEL  PHRSE 

- 

. 0 

- 

.0 

- 

. 1 

- .0 

- . 0 

- . 0 

- 

.0 

292.30  DEG. 


» — 


V S I..J  R 1.04 

GAIN-DB  .0 

DEL  PHRSE  -.0 

303.75  DEC. 
VSWR  1 .04 

CRIN-DE  .0 


1.04 
- .0 
- .0 


1.04 
- .0 
- . 1 

1.04 


1.04 
- .0 
- .0 


1 .04 
- . 0 
- . 0 


1 .04 


- .0 


1.05 
- .0 
- . 0 


1.04  1.04  1.04  1.04  1.04  1.05 

~.0  “.0  -.0  — .0  — .0  ~.3 

Fig.  4 (Continued)  - Long  form  data  printout  for  transmitter 
and  receiver  sections  of  transceiver  module 
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1 


.0 


.05 
— . 8 

. 3 


.05 

- .0 

.0 

.05 

- .0 

.0 

.05 

- .0 

.0 


.05 

- .0 

.0 

.05 

- .0 

.0 


.05 

- .0 

.0 

.05 

- .0 

. 0 

.05 
- . 0 

.0 

.05 

- .0 

.0 

.05 

- .0 

.0 

.05 

- .0 

.0 


.0 


.05 

- .0 

.0 


.05 
- . 0 


.0 


1 .05 

- .0 

.0 

1 .05 
- .0 
.0 

1 .05 
- .0 
.0 

1 .05 

- .0 

.0 

1 .05 

- .0 

.0 


1 


.05 

- .0 

.0 


1 


I 


1 .05 

- .0 

. 0 

1 .05 

- .0 

.0 


1 .05 
- . 0 


1 .05 

- .0 

.0 

1 .05 
- .0 

.0 

1 .05 
- . 0 

. 0 

1.05 
- .0 
0 

1 .05 
- . 0 

. 0 

1.05 

- .0 


DEL  PHRSE 

- .0 

- . 0 

-.1 

- .0 

- .0 

- .0 

.0 

- .0 

.0 

315.00  DEG 
V S W R 1 

• 

.04 

1 .04 

1.04 

1 

.84 

1.04 

1 .04 

1.05 

1 .05 

1 .05 

G 0 I M - D I. 

.0 

.0 

- .0 

- .0 

- . 0 

- . 0 

- .0 

- .0 

- . 0 

DEL  PHASE 

- . 0 

- . 0 

. 0 

- . 1 

. 0 

. 0 

. 0 

.0 

. 0 

3 2 6.25  D f G 
V s y R 1 

a 

.04 

1.04 

1 .04 

1 

.04 

1 .04 

1.04 

1 .05 

1.05 

1 .05 

G R I N - D B 

.0 

- .0 

.0 

-.0 

- .0 

■ - .0 

- .0 

■ - . 0 

DEL  PHRSE 

- . 0 

- .8 

- .0 

- .0 

.0 

- . c 

. 0 

. 0 

.0 

337.50  DEG 
VSUR  1 

• 

.04 

1 .04 

1 .04 

1 

.04 

1 .04 

1 .04 

1 .05 

1 .05 

1 .05 

G fl  I N - D B 

. 0 

.0 

. 0 

- .0 

- .0 

- .0 

- . 0 

- .0 

- . e 

DEL  PHRSE 

- . 0 

- .0 

- .0 

- .0 

.0 

.0 

.0 

.0 

.0 

348.75  DEG 
VSWR  1 

■ 

.04 

1 .04 

1 .04 

1 

.04 

1 .04 

1 .04 

1 .05 

1.05 

1 .05 

GO IN-DE 

.0 

- .0 

.0 

- .0 

- . 0 

- .0 

- .0 

- '.  ,0 

- . 0 

DEL  PHRSE 

- . 0 

- .0 

- .0 

0 

- .0 

.0 

- . 0 

. 0 

.0 

Fig.  4 (Continued)  - Long  form  data  printout  for  transmitter 
and  receiver  sections  of  transceiver  module 
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APPENDIX  I 


Data  processing  programs: 

These  programs  are  Intended  for  locating  data  already  obtained  and 
stored  on  magnetic  tape.  The  desired  file  Is  called  by  Inputting  the 
serial  number  and  attenuation  or  Input  power  level.  The  output  pro- 
cessed data  is  In  the  form  of  Figures  3 and  4 of  this  report. 


noooraooooooooo  or) 


( 


PAGE  1 


PROGRAM  RDRCV 

DIME  N-S  ION  NDflTE(10)  ,NSER(10)  ,LTL1  (20)  , CM  (64, 9)  ,GMfiG(32,9)  , 
IGPNlii  (32 ,9)  , VMAG  ( 32 , 9 ) ,AMfiXV  (9)  .AMENV  (9)  ,nMfiXP  (9)  ,RMSPH  (9)  , 
8DEGMX(9)  ,rEGMI  (9)  ,BfiNG(93  ,F(9)  , VANG (32, 9)  ,VMG1  (288)  , 
3VAG(288)  ,GAG(28S)  ,GNG(288)  , TEMP 8(9)  ,TEMP9(9)  ,ISER(10) 


EQUIVALENCE  (VMAG(l,i)  ,VMG1(1))  ,(VANG(1,1)  ,VnG(l))  , 
1(GMAG(1,1)  ,GAG(1))  ,(GANG(1,1)  ,GNG(1)) 


THIS  PROGRAM  SEARCHES  MAG.  TAPE  FOR  DATA  WITH  MATCHING 
SERIAL  NUMBER  AND  ATTENUATION. 

RECEIVER  DATA  ONLY. 

OUTPUT  DATA  TO  VERSATEC  IN  BOTH  LONG  AND  SHORT  FORMAT 
AS  PER  NADC 1 . 

REV.  C MAY  20,1977 

. L.  LAVEDAN 


F ( n =1235  . 

F 12)  = 1260  . 

F (3)  = 1 280  . 

F (4) =1295  . 
r (5) =1300  . 

F (6) =1305  . 

F(7) =1320  . 

F ( 8 ) = 1 340  . 

F ( 9 ) = 1 3 6 5 . 

C 

CALL  CLEAR(0) 

UIRITE  (9 , 100) 

i 100  FORMAT ( "PROGRAM  FOR  LOCATING  AND  PROCESSING  RECEIVER"/ 

110X,"  DATA  STORED  ON  MAG.  TAPE"// 

2*FLEA3E  select  tape  and  PUT  SYSTEM  ON  LINE") 

C 

CALL  PAUSE 
R E W I N D 1 8 
110  CALL  CLEnR(0) 

WRITE  (9 , 120.’ 

120  FORMAT  ("  INPUT  SERIAL  NUMBER*-") 

READ(8,13e)  (ISER(I)  ,1  = 1,10) 

130  FORMAT (i0A2) 

WRITE  (9,131) 

131F0RMAT("INPUTATTENUATI0N-!-") 

REAL  1 8 , «• ) N T T N 3 
135  READ(18,140; 

14  0 F 0 R M A T ( I 1 ) 

IF  ( lEOF  ( 13?  ) 150,135 

150  READ ( 1 8 , 1 70 ) LET  1 , (NSER ( I ) , I = 1 , 1 0 ) , ITTN3  , (NDATE ( I ) , 

11  = 1 ,10)  . V C L T 1 , V 0 L T 2 , T E M F 1 , T E M P 2 , ( L T L 1 ( 1 ) ,1  = 1 ,20) 

170  FORMAr(Al  ,10A?,I2,10A2,2r7.3,2F7.2,20A2) 

IF  ( lEOF ( 18)  ) 2G0  ,cl0 
210  DO  500  1=1,10 


oo  ooonooo  oooooo  ono 


i 


500  COMTINUE 

ir(HTTH3-ITTN3)  135,1000,135 
. CORRECT  SER  HO  COHTIHUES 

1000  REQri(18,100n  (VI1Q1  (1)  ,1  = 1 ,288) 
REPD(18,10  01)  (VfiG(I)  .1  = 1 ,288) 
REQD(18,1001)  (GRGtl)  ,1  = 1 ,288) 

R E fl  D ( 1 8 , 1 0 0 1 ) I G H G ( I ) ,1  = 1,283) 

1001  FORNRT  ( 28  C 1 0E  1 2 . 7^' ) 1 0E  1 2 . 7 ) 


ORDER  PHRSE  STARTING  WITH  GRNG(1,1) 

CALL  PH0PD(GRHG(1,1)) 

DO  2060  J=2,9 

2030  IF(GfiNG(l  ,J-1)-GRNG(1  ,J)+90. 0)2040, 2040, 2050 
2040  GANG ( 1 , J) =GflNG ( 1 , J) -360 . e 
GO  TO  2030 

2050  CALL  PHORD ( GANG f 1 , J ) ) 

2 0 6 0 C 0 N r I H LI  E 

PROCESS  DATA  AND  PRINT  OUT  ON  VERSRTEC 

SET  SUM  GAIN  TO  0 
S U N G = 0 . 0 

SET  SUM(GAIN)t2  TO  0 
S U ri  G 2 = © 

DO  2100  11=1,5 

INITIALIZE  VALUES  TO  FIRST  PHRSE  STATE 
GMRX  = GMRG(1  ,11) 

G M I N = G M A G ( 1 , I I ) 

V M A X = V M A G ( 1 ,11) 

V A V G = V M A X 

P H 0 = G A N G ( 1 ,11) 

P H M A X = 0 . 0 
S U M P 2 = P H N A X 
SUMG=SUMG+GMAG (1,11) 

SUriG2  = SUMG2  + GMRG  ( 1 , I I ) »GMAG  ( 1 , I I ) 

PHASE  LOOP 
DO  2150  iP=2,32 

C DETERMINE  REFLECTION  COEFF  MAX 

I F ' V M A G ( I P , I I ) - V M A X ) 2 0 7 0,2070,2065 

2 0 6 5 V M A X = V M A G ( I P , T I ) 

C DETERMINE  SUM  REF.  COEFF. 

2 0 7 0 V H V G = V A V G + V M A G ( I P , I I ) 

C D E T F R M I H E V 0 L T P G E G A I N M A X 

IF  (GMAG ( IP  , I I ) -GMPX)  2 5 8 0,2080,2075 
2 0 7 5 G M A X = G N A G ( I F , I I ) 

C D E r F:  R M I H E V OLTP  G E G A I N M I N 

2 :- 3 0 I F ( GM  I N-GMAG  ( i F , 1 I ) ) 2 0 5 0 , 2 0 50 , 2 0 8 5 

2 0 8 5 G M I H = G M A G f.  I P , I I ) 

C D E T E R M I N E S U M 0 F VOLT  G A I N 

2 C 5 0 3 U M G = S U M G + G M A G ( I P , I I ) 


PAGE  2 


oo  oooooooooo 


PftGE  3 


C 

C 

C 

C 

2095 

C 

C 

2150 


2100 


2999 
C 

3000 
30  0 5 

30  1 0 

30  1 5 

30  20 
3 0 25 
3 0 30 
3 0 3 5 
3040 


DETERriINE  SUM  (VOLT  GfilNl  tZ 

SUMG2  = SUMG2  + GMflG(IP,in»Gr'1fiG(IP,in 

DETERMINE  DELTA  PHASE 

DELP  = PH0-GRNG ( I P , I I ) 

DETERMINE  DELTA  PHASE  ERROR 
DDELP=DELP-(11 .25^FL0AT(IP-n ) 

DETERMINE  DEL  PHAS  ERR  MAX 
IF(ABS(DDELP)-AES(PHMAX:i  ) 2150,2150,2095 

PHMAX=DDELP 

DETERMINE  SUM (DEL  PHAS  ERR)t2 
SUMP2  = SUMP 2 + DDELPiDDELP 

CONTINUE 

ON  A PER  FREQ  BASIS 

CONVERT  MAX  RHO  TO  VSWR  MAX 
AMAXV(II)  = (1  .0  + V MAX  1/(1  .0-VMAX) 

CONVERT  A V G RHO  TO  MEAN  VSWR 

AMENV(II)  = (1  .0+(VAVG/-32.0)  )/(l  .0-(VAVG/'32.0)  ) 

CONVERT  MAX  PHASE 
AMAXP  (in  =PHMAX 
CONVERT  RMS  PHASE 
R M S P H ( in  = S Q R T ( S LI  M P 2 3 2 . 0 ) 

CONVERT  VOLT  GAIN  MAX  TO  MAX  GAIN  DB 
DB  G M X ( I n = 2 0 . * A L 0 G ( G M A X n'  A L 0 G ( 1 0 . 0 ) 

CONVERT  VOLT  GAIN  MIN  TO  MIN  GAIN  DB 
DBGMI(II)=20.*ALOG(GMIN).''ALOG(10.0) 

CONTINUE 

CONVERT  TO  MEAN  GAIN 

DBGME=23.*RLOG(SUMG/288.0)/ALOG(10.0) 

C 0 N V E ra  TO  RMS  GAIN 

P.  MSG  = 2 0. *0000(5  QP.T((SUM  G2-(SUMG*SUM  G/288.0))/2S8.0))x' 
1 ALOG (10.03 


CALL  CLEAR(0) 

«R I TE ( 1 1 ,29993 
FORMAT  ( 1 0 (V/  3 3 

W R I T E ( 1 1 , 3 0 0 5 3 ( N S E R ( I 3 ,1  = 1,10  3 
FORMAT ( " SER  .NO  . " , 10A2 ,5X  , " RECEIVER"  3 

U R I T E ( 1 1 , 3 0 1 0 3 ( N D A T E ( I 3 ,1  = 1,10  3 
F 0 R M A T ( " D A T E : ",  1 0 A 2 3 

URITE(11  ,30153  VOLTl  ,V0LT2 

F 0 R M A T ( " V 0 L T 1 = " , F 7 . 3 , 2 0 X , " V 0 L T 2 = " , F 7 . 3 3 
Ml?  1 T E ( 1 1 , 3 9 2 0 3 T E M P 1 , T E M P 2 

FORMAT ( "TEMP  1 = " ,F7 . 1 , " DEG  .C"  , 1 6X  , " TEMP2= " ,F7 . 1 , "DEG  . C " 3 

WRITE ( 1 1 ,3025  3 (LTLl  (13  ,1  = 1,203 

F 0 R M A T ( 2 0 A 2 / 3 

WRITE ( 1 i ,3030  3 ITTN3 

F C R M A T ( " A T T N U A T I 0 N = " , I 2 , " D E . " / 3 

W R I T £ ( 1 1 , 3 0 3 5 3 ( F ( I 3 ,1  = 1 .93 

F 0 R ri  A T ( " F R £ Q . " , 3 X . 9 ( 2 X , F 4 .03  3 

WRITE ( 1 1 ,30403  (AMAXV (13,1=1,93 

FORMAT (" VSWR  MAX  ",9(X,F5.2>3 

W R I T E ( 1 1 , 5 0 4 5 3 (A  M E N V ( I 3 ,1  = 1,93 

F 0 R M A T ( " V S W R M E A N " , 9 ( X , F 5 . 2 3 3 

UR  I TE  ( 1 1 ,3059  3 ( AflAJ'P  (13,1  = 1,93 


30  4 5 


non  o o 


PRGE 


3050  FORMflT("MRX-PH-ER"  ,3CX,r5.n  ) 

WRITE  t 1 1 ,305  5)  (RMSPH  f I ) ,1  = 1 ,9) 

3055  F0RMflT("RMS-PH-ER",9(X,F5.1)) 

WRITECll,o060)  (DEGMXtl)  ,1  = 1,9) 

3 0 6 0 F 0 R M a T ( " M fl  J.'  - G H - E B " , 9 ( X , F 5 . 1 ) ) 

U R I T E ( 1 1 , 3 0 6 5 ) ( n B G M I ( I ) ,1  = 1,9) 

3 0 6 5 F 0 R M fl  T ( M I M - G K - D B " , 9 ( X , F 5 . 1 ) ) 

UlRITECll  ,3070)  tGflNGfl  ,1)  ,1  = 1 ,9) 

3070  FORMRTf’IHS  PHPS  ",9(X,F5.0)) 

WRITE ( 1 1 ,3075) DESME 

3075  FORMAT ( "OVERALL  MEAN  GA  I H= " , F5 . 1 , " DB  . ” ) 

WRITECll  ,3080)RMSG 

3030  FORMATC'STD.  DEVIATION  IN  OVERALL  GA  I N=  " , F6 . 1 , " DB  . 
CALL  PAGE 

4005  WRITEdl  ,3005)  (NSERfl)  ,1  = 1 ,10) 

WRITEtll  ,3010)  (HDRTE(I)  ,1  = 1 ,10) 

WRITE (11  ,3015) VOL T1  , VOLTE 
WRITEdl  ,3020)  TEMPI  ,TEMP2 
WRITEdl,3025)  (LTLld)  ,1  = 1,20) 

WRITEdl  ,3030)  ITTN3 
WRITEdl,3835?  (Fd)  ,1  = 1,9) 


DO  4100  1=1 ,32 
DO  4101  J=1 ,9 

TENP9(J)  = d .+VMAG(I  ,J)  )/(!  .-VMAGd  ,J)  ) 
TEMP8(J)=20.-»OLOG(GMAGd  ,J)  )>-RLOGd0.0) 

4101  CONTINUE 

BIT=1 1 .25*FL0AT ( I-l  ) 

WRITE  d 1 ,4102)  BIT 

4102  FORMAT("  " ,F6 .2 DEG.") 

WRITE  (11,4105)  (TEMP9CJ),J=1,9) 

4105  FORMAT ( "VSWR" ,5X ,9 (X ,F5 .2) ) 

WRITE  (11,4110)  (rEMP8(J),J=l,9) 

4110  FORMRT("GRIN-DE" ,2X,9(X,F5.1) ) 

IFd-1)  4115,4115,4120 
4115  WRITEdl, 4125)  (GANG(1,J)  ,J=1,9) 

412  5 F 0 R M A T ( " I P H S " , 5 X , 9 ( X , F 5 . 0 ) ) 

GO  TO  4100 
4120  DO  4126  L=1  ,9 

BANG(L)=GRNG(1  ,L)-GRNG(I  ,L) 

4126  CONTINUE 

WRITE (11,4130)  ( BANG ( J)  , J=1  ,9) 

4130  FORMAT("DEL  PHASE",9(X,F5.1)) 

4100  CONTINUE 
CALL  PAGE 


REWIND  18 
GO  TO  110 
230  CALL  CLEAR(0) 

WRITE ( 9 , 205 ) 

205  FORMAT ( "SERI  AL  HUMBER  AMD  ATTENUATION  REQUESTED" 
1"  NOT  FOUND  OH  TAPE") 

220  REWIND  18 
CALL  PAUSE 
CO  TO  110 


END 


I 

1 


PRGE  1 


PROGRAM  RDXMT 

C 

DIME  NS  ION  NSERdO)  ,NDflTE(10)  ,LTL1  C20)  .TEMPdOJ  ,GNG(288)  , 
lCfiNG(32,9)  ,Gt1fiG(32,9]i  ,flVSWR(32,9)  ,GfiG(288)  , 

2VMG1(28S)  ,VMflG(3  2,9)  ,RMPXV(9)  ,F(9)  ,ISER(10j  , 

3fiMENV  (9)  ,RMflKP  (9)  ,RMSPH  (9)  ,PUIRMX  (9)  ,PWRMI  (9)  , BONG  (9) 


EQUIVALENCE  CGflNGCl,!)  ,GNG(n)  ,(GMftG(l,n  ,GflG(n)  , 
1 ( V M a G ( 1 , 1 ) , V M G 1 ( 1 ) ) 


c 

C THIS  PROGRAH  SEARCHES  HAG.  TAPE  FOR  DATA  MITH  HATCHING 

C SERIAL  NUMBER  AND  DRIVE  POWER. 

C 

C TRANSMIT  DATA  ONLY 

C 

C OUTPUTS  DATA  TO  VERSATEC  IN  BOTH  SHORT  AND  LONG 

' C F0RNATHSPERNADC2. 

C 

! C REV.C  NAY20,1977 

I C L.  LAVEDAN 

I C 

' c ■ 

I ( C 

I RHO1=0 . 1 1512925 

! . RHO2  = 0 .23025851 

I r 1 1 ) = 1235  . 

\ F(2)=1280. 

F (3) =1280  . 

I F ( 4) = 1295  . 

I F (5) =1300  . 

F t6) =1305  . 

( F (7) =1320  . 

i r(S)=1340. 

r (9) =1365. 

C •• 

C-PLL  CLEAR  (0) 

IM?ITE(9,100) 

100  FORMAT ( "PROGRAM  FOR  LOCATING  AND  PROCESSING  TRANSMITTER"^' 
16X,"  DATA  STORED  ON  MAG.  TAPE"^'/ 

2-PLEASE  SELECT  TAPE  AND  PUT  SYSTEM  ON  LINE") 

C 

CaLL  PAUSE 

I REWIND  13 

110  CALL  CLEARtO) 

' WRITE (9 , 120) 

12  0 F 0 R M A T ( " I N P U T SERIAL  N U M B E R <-  " ) 

READ  .8,130)  ( I SEP ( I ) ,1  = 1 , 10 ) 

130  F0RMAT(10n2,F4.n 
WRITE  (9,131) 

131  FORMAT  ("INPUT  DRIVE  LEVEL  ( 2 3 . 8 , 2 4 . 8 , 2 5 . 8 ) <•  " ) 
READ(8,*)PWRB 

135  RCAD(18,140) 

140  FORMAT!  11) 

IF ( lEOF ( 18) ) 150,160 


160  GO  TO  135 


PfiGE 


150  REflD(18 
11  = 1 

170 


C 

C 

C 


,170) LET  1 
, 10) ,V0LT1 
FORMfiT  ( fi  1 , 1 0fi£: 


(NSER(I)  ,1  = 1,10)  ,PWRfi,(HriPTE(I) 

1 = 1 ,20) 


,V0LT2,TEMP1,TEMP2,(LTL1(I) 


2 1 0 


500 


, F 4 . 1 , 1 0 fl  2 , 2 F 7 
IF(IEOF(1S))200,210 
DO  500  1=1,10 
IF  ( ISER ( I ) -NSER ( I ) ) 

CONTINUE 

I F ( PWRfi-P WRB ) 135,1000,135 


2F7.2,20R2) 


135,500,135 


1000 


100  1 


CORRECT  SER  NO  CONTINUES 

RERD(18,1001)  (VMGl(I)  ,1  = 1,288) 
REflD(lS,10  01)  (GflG(I)  ,1  = 1,288) 
RERD(18,1001)  (GNGfl)  ,1  = 1 ,288) 
FORMPT  (28(18E12.7/')i0E12.7) 


C 

C 

C 


1225 

1230 

1235 

1240 


C 

C 


C 

C 


1299 

1298 


C 

C 


1302 
1301 
13  00 
1305 


IFLG  = 0 

ORDER  PHfiSE  STRRTING  WITH  GONG ( 1 , 1 ) 
PORD  ORDERS  POSITIVE  PHfiSE  DELAY 
CALL  PORD (GANG  t 1 , 1 ) ) 

DO  1240  J=2,9 

ir(GRNG(l  ,J-1)-GRHGC1  ,J)-90.0)  1235 

GANGfl  ,J)=GRNG(1  ,J)+360.0 
GO  TO  1225 

CALL  PORD (GANG  ( 1 , J)  ) 

CONTINUE 


SUriG  = 0 .0 
SUriG2  = 0 .0 
FREQ  LOOP 
DO  1800  11=1,9 


1230 


INITIALIZE  VALUES 
GriAX  = GMAG  (1,11) 

IF  ( G ri  A G ( 1 , 

IFLG=1 
G M I N = G M A X 

V M A X = V r-l  A G ( 1 

V A V G = V N A X 
P H 0 = G A N G ( 1 
PHMAX  = 0 . 0 

S U M P 2 = P H M A X 

S U M G = S U M G + G M A G ( 1 , 

SUNG2=SUMG2+GMAG( 


TO  PHASE  STATE 


I ) ) 1298 , 12S9 , 1298 


I I ) 


I I ) 


I I ) 

1 , I I ) G M A G ( 1 


I I ) 


PHASE  LOOP 
DO  1335  IP=2,32 
IF(GMAG(1P,II)  ) 1301  , 
IFLG=1 

I F ( V ri  A G ( I P , I I ) - V M A X ) 

V H A X = V M A C ( T P , I n 

V A V G ■=  V A V G + V n A G f I P , I I 
I F ( G n A G ( I P , I I ) - G M A X ) 


1302,1301 


130! 


1305 , 1300 


1315,1315,1310 


1310  GrtPX  = GNRG  ( I P , I I ) 


1315  IF (GMIN-GMAG ( IP  , 
13  2 0 G N I N = G M A G ( I P , I I ) 


11))  1325, 1325,1 320 


SlO 


13  2 5 S U M G = S IJ  M G + G M FI  G ( I P , I 1 3 

S U M G 2 = S U M G 2 + C G M fi  G ( I P , I n 3 * ( G M fl  G ( I P , I 1)  3 
DELP  = GFlNG  ( I P , I I 3 -PH0 
DDELP  = DE:LP-(11  .25#FL0RT(IF-13  3 
IFfRBSdiBELFS-RBSCPHMfiX)  3 1335,1335,1330 

1330  PHMflK  = riDELP 

SUMP2  = SUMP2  + DDELP*IIDELP 
1335  CONTINUE 


0-N  FI  PER  FREQ  BFiSIS 
CONVERT  MAX  RHO  TO  VSWR  MAX 
fiM  AX  V ( I I 3 = ( 1 . 0 + V M A X 3 / ( 1 . 0 - V M A X 3 
CONVERT  AVG  RHO  TO  MEAN  VS UR 

A M E N V ( I I 3 = t 1 . 0 - i:  V A V G / 3 2 . 0 3 i ^ ( 1 . 0 - ( V A V G / 3 2 . 0 3 3 
CONVERT  MAX  PHASE 
A M A X P ( I I 3 = P H M A X 
CONVERT  RMS  PHASE 
R M S P H < I I 3 = S Q R T { S U M P 2 / 3 2 . 0 3 
PWRMX ( I I 3 = GMAX 
PWRM I ( I I 3 = GM  I H 
1600  CONTINUE 

MEAN  P 0 Ul  E R 
PUIRME  = SUMG^28i3 . 0 
RMS  POWER 

RMSPW  = SQRT  C ( SUMG2-'288 .03  - ( P U R M E * P W R M E 3 3 

PRINT  SEQUENCE SHORT  FORM 

C-RLL  CLEAR  (03 
WRITE ( 1 1 ,29993 
2999  FORMAT ( 1 0 ( x/ 3 3 

30  00  WRITE(11  ,30053  (NSER(I3  ,1  = 1 ,103 
3 0 0 5 F 0 R M A T ( " S E R . N 0 . " , 1 0 A 2 , 5 X , " T R A N S M I T T E R " 3 
WRITE ( 1 1 ,301  03  (NDATE  (13,1  = 1,103 
3610  FORMAT (" DATE  ; ",18A23 

MR  I T E ( 1 1 , 3 0 1 5 3 V 0 L T 1 , V 0 L T 2 
30  15  FORMAT ( " VOLT  1 = " , F7 . 3 , 20X  , " VOLT2=  " , F7 . 3 3 
UR  I T E ( 1 1 , 3 8 2 0 3 T E N P 1 , T E M P 2 

3020  FORMAT ( "TEMP1  = " ,F7  . 1 , "DEG  .C"  , 16X  , "TEMP2="  ,F7 . 1 , "DEG  .C") 
URITE(11  ,30253  (LTLl  (il  ,1  = 1 .203 
3025  FORMAT(20A2-'3 

WRITE ( 1 1 ,3030  3 PWRA 

3030  FORMAT (" INPUT  P 0 W E R = " , F T . 1 , " D B M . " 3 
IF(IFLG3  3031,3034,3031 

3031  WRITE  ( 1 1 ,30323 

3032  FORMAT  ("CAUTION --ERRORS  ENCOUNTERED  IN  DATA") 

3034  WRITE  (11,30333 

3033  FORMAT  ("  "3 

WR I T E ( 1 1 , 3 0 3 5 3 ( F ( I 3 ,1  = 1,93 

3035  FORMAT  ( " FREQ . " , 3 X , 9 i 2 X , F 4 . 0 3 3 
WR I T E ( 1 1 , 3 0 4 0 3 ( A M A X V ( I 3 ,1  = 1 ,93 

3 0 4 0 F 0 R M A T ( " V S W R M A J'i  " , 9 ( f : , F 5 . 2 3 ) 

W R I T E ( 1 1 , 3 0 4 5 3 ( A M F N V ( I 3 ,1  = 1,93 
3 0 4 5 F 0 R M A T ( " V S W R M E A M " , 9 ( X . F 5 . 2 3 3 
W R I T E ( 1 1 , 3 0 5 0 3 ( A M A X P ( I)  , T = 1 . 3 3 


( 


PfiGE  4 


3 0 50  FORMfiTCMfiK-PH-ER"  ,9{X,F5.1)  ) 

WRITE(11,3055)  (RriSPH(I)  ,1  = 1,9) 

3055  FORMAT  ( ’’RT'tS-PH-ER  9 ( X , F5 . 1)  ) 

WRITE ( 1 1,3060)  tPWRMX ( I ) ,1  = 1,9) 

3 0 6 0 F 0 R M A T ( " M A X - P W R - y " , 9 ( X , F 5 . 1 ) ) 

W R I T E ( 1 1 , 3 0 6 5 ) ( P W R K I ( I i ,1  = 1,9) 

3 0 6 5 F 0 R M A T ( " M I H - P W R - W " , 9 t X , F 5 , 1)  ) 

W R 1 1 E ( 1 1 , 3 0 7 0 ) ( G A M G ( 1 , i ) ,1  = 1,9) 

3 0 7 0 F 0 R M A T ( " I H S P H A S " , 9 ( X , F 5 . 0 ) ) 

W R I T E t 1 1 , 3 0 7 5 ) P W R M E 

3 0 7 5 F 0 R ri  A T ( " 0 V E R A L L MEAN  PEAK  P 0 W E R = " , F 5 . 1 , " W A T T S " ) 

W R 1 1 E f 1 1 , 3 0 8 0 ) R M S P W 

3 0 3 0 F 0 R H A T ( " S T n . DEVIATION  IN  OVERALL  PEAK  P 0 Ul  E R = " , F 5 . 1 , 

1 " W A T T S " ) 

C 

CALL  PAGE 
C 

4005  WRITEdl  ,3  005)  CNSER(I)  ,1  = 1 ,10) 

WRITEdl  ,3010)  (NDATEd)  ,1  = 1 ,10) 

WRITEdl  ,3015)VOLT1  ,V0LT2 
WRITEdl  , 3 0 2 0 ) T E M P 1 , T F M P 2 
W R I T E C 1 1 , 3 0 2 5 ) ( L T L 1 d ) ,1  = 1,20) 

WRITEdl  ,3  0 3 0 ) F W R A 
WRITEdl, 3 0 35)  CFtI)  ,1  = 1,9) 

DO  4100  1=1,32 

DO  4 10  1 J = 1 , 9 

V M A G d , J ) = ( 1 . 0 + V M A G d , J ) 5 z' d . 0 - V M A G d , J ) ) 

4101  CONTINUE 

DIT=11  .25*FL0AT(I-1) 

WRITEdl, 4102)  BIT 

4 102  FORMAT  ("  “,76. 2,'^  DEG  . " > 

W R I T E d 1 , 4 1 0 5 ) ( V M A G ( I , J ) , J = 1 , 9 ) 

4 10  5 F 0 R M A T ( V S W R " , 5 X , 9 ( X , F 5 . 2 ) ) 

W R I T E ( 1 1 , 4 1 1 0 ) ( G M A G ( i , J ) , J = 1 , 9 ) 

4 110  FORMAT ( "MAX-PWR-W"  ,9  (X  ,F5 . 1 ) ) 

IFfI-1)  4115,4115,4120 
4 115  W R I T E ( 1 1 ,4125)  ( G A N G d , J ) , J = 1 , 9 ) 

4 12  5 F 0 R ri  A T ( " I P H S " , 5 X , 9 ( X , F 5 . 0 ) ) 

GO  TO  4100 
4 120  DO  4 126  L=  1 , 9 

E A N G ( L ) = G A li  G d , L ) - G A N G ( 1 , L ) 

4126  CONTINUE 

W R I T E d 1 , 4 1 3 0 ) ( B A N G ( J ) , J = 1 , 9 ) 

4 13  0 F 0 R M A T ( " D E L P H,  A S E " , 9 ( X ' F 5 . 1 ) ) 

C 

4100  CONTINUE 
CALL  PAGE 
REWIND  13 
GO  TO  110 
200  CALL  CLEAR(O) 

W R I T E ( 9 , 2 0 5 ) 

205  FORMAT ( "SERI AL  NUMBER  AND  DRIVE  POWER  REQUESTED" 

1 " NOT  FOUND  OH  TAPE") 

2 2 0 R E 01 1 N D 18 
CALL  PAUSE 
GO  TO  110 
END 


APPENDIX  II 


Data  acquisition  programs: 

NADC  1 and  2 are  the  two  primary  programs  employed  in  hardware 
control  and  data  acquisition,  processing,  and  storage  for  the  trans- 
ceiver modules  described  in  this  report. 

CALSl  is  a transmitter  test  subroutine  used  in  the  hardware 
calibration  sequence. 

BORIS  is  a receiver  test  subroutine  for  calibration  of  the  Hewlett 
Packard  network  analyzer  and  is  similar  to  that  used  by  Hewlett  Packard 
except  that  it  is  tailored  specifically  to  module  test. 


r f 


r 


PfiGE  1 

PROGRRM  NRDCl 

DIMENSION  HIiRTE(10)  ,NSERC10)  ,LTH  (20)  , CM  (64, 9)  ,GMfiG(32,9)  , 
1 G R N G ( 3 2 , 9 ) , V M P G ( 3 2 , 9 ) , R M P X V ( 9 ) , fl  M E H \M  9 ) , R M fl  X P ( 9 ) , R M S P H ( 9 ) , 
2DBGHX  (9)  ,rBGNI  (9)  ,BRNG  (9)  ,F  (9)  , VRNG (32,9)  , VMGl  (2SS)  , 

3VfiG  I 238 ) , GRG ( 288 ) , GNG ( 2SS ) , TEMPS ( 9 ) , TEMP9 ( 9 ) 


COMMON  LT 1 ST  ,LT2ND  ,LTSTP  ,LI  NFR  .LI NND  ,EXT ( 3) 
IIDMY  ,LCflL  , ICTYP  , I NEW  ,FCO  ,CRL (6,9) 


IS  (2) 


EQUIVRLENCE  ( VMRG  (1,1)  ,VMG1  ( 1 ) ) 

1 (GMRG (1,1)  ,GfiG  ( 1 ) ) , (GANG  (1,1)  ,GNG  ( 1 ) ) 


( V fl  N G ( 1 , 1 ) , V fl  G ( 1 ) ) 


c 

C THIS  IS  fl  SPECISL  MEASUREMENT  PROGRRM  FOR 
C MEASURING  THE  REFLECTION  AND  TRANSMISSION 
C DATA  TO  MAGNETIE  TAPE. 

C 

C 

c 

C BORIS  SHELEG  10  MARCH?? 

C . REV  M 18  MAY  ?? 

C 

C THIS  IS  MOniFIED  GPMl 

C 


************* 


BEFORE  OUTPUTING 


c 

C INITIALIZE  FLAGS — FIRST 

C 


TIME  ONLY--flND  CONSTANTS 


C 

C 


30 


CALL  CLRIO 

TRAP  1 IS  RETURN 
CALL  TRflP(l) 

GO  TO  1000 
TRAP  2 IS  RETURN 
CALL  TRRP(2) 

CO  TO  50 
CALL  CLEAR(0) 


TO  MEASURE 


TO  CALIBRATE 


iW?  ITE(9  30) 

80  FORMAT  ("PUT  DATA  TAPE  OH  DECK  AND  ON  LINE") 
CALL  PAUSE 
WRITE  (9 ,85) 

35  FORMAT  ("NEW  TAPE  (Y  (DR  N )=<■") 

CALL  NYES(IV) 

I>(IV)  99,90 
90ENDFILEi8 
EHDFILE  18 
REWIND  18 
99' CONTI  HUE 


WRITE (9,100) 

10  0 F 0 R M A T ( " D fl  T E ; " , 2 0 X , " T , 1 3 T T " <-  " ) 
READ(3,105)  (HDflTE(i)  ,1  = 1 ,10) 

10  5 F 0 R M A T ( 1 0 fl  2 ) 


o o o o Cl  o o o o o n o o o o o o n o o o n o o 


( 


PRGE  2 


F f 2) =1260 
F ( 3 J = 1 2 8 0 
F (4) =1295 
F (5) =1300 
F ( 6 ) = 1 3 0 5 
F (7) =1320 
F ( 8 1 = 1 340 
F ( 9 ) = 1 365 


CALL  BORIS  (FID) 

1000  COLL  CLERR(0) 

W R I T E ( 9 , 1 0 0 5 ) 

10  0 5 F 0 R M 0 T ( " 3 E R . N 0 . = " , 2 0 X , " t , 1 0 Tt  " ^ ) 
REflD(8,10  0 7.1  CNSERd)  ,1  = 1,10) 

1007  FORriOT(10fl2) 

WRITE (9 , 1010) 

1010  FORMAT  ( "REMARKS  : " ,40X  , " t , 20  t )f  " <•  " ) 
READ (8 , 1012)  CLTLl  ( I ) , 1 = 1 ,20) 

1012  FORMAT(20R2) 

W R I T E ( 9 , I 0 1 5 ) 

10  15  F 0 R M A T ( " C 0 N N E C T DEVICE " ) 

CALL  BELL 
CALL  PAUSE 


MEASUREMENT  CYCLE'-DATA  RETURNED  IN  CM  ARRAY 

DO  4000  ITTN=1,8 

CHAN  1=TEMP  DEG  C 
CHAN  2=TEMP  DEG  C 
CKAN  4=40  VOLT 
CHAN  5=12  VOLT 

CALL  T V 0 L n i:  1 , T E M P 1 ) 

CALL  T V 0 L B t 2 , T E M P 2 ) 

CALL  T V 0 L D C 4 , V 0 L T 1) 

CALL  T V 0 L D ( 5 , V 0 L T 2 ) 

SET  ATTENUATION 
ITTN2=ITTN-1 

CALL  SETPH(0,ITTH2) 

CALL  MEASURE  AT  9 FREQ  AND  32  PHASES 

CALL  MC0F1CF(1),CM) 

OUTPUT  BATA  TO  MAG  TAPE 

CONVERT  CM  ARRAY  TO  MAG  AND  ANGLE 

2 0 0 0 B 0 2 0 2 0 J = 1 , 9 
DC  2020  1=1,32 
G A N G ( I , J ) = A N G ( C M f 2 1 , J ) ) 

G M A 0 I I . J ) = C M A G ( C M ( 2 # I . J ) ) 


ooooo  ooo  ooo  ooo  ooo 


PfiGE  3 


VMflGCI  ,J)=CMRG(CM(2*I-1  ,J)  ) 

V ft  N G Cl  , J ) = fi  H C ( C M ( 2 # I - 1 . J ) ) 

2020  CONTINUE 

ITTH3=ITTN2*2 

FIND  END  OF  TRPE 

2621  READ ( 18 ,2022) 

2022  FORIIflTCIl) 

IF ( lEOF  ( 18)  ) 2023 ,2021 

2023  READ ( 18 ,2022) 

!F(IE0F(18))  2024,2021 

2024  BRCKSPRCE  18 

PUT  TITLE  INFO  ON  TRPE 

WRITE(18,2025)  (HSER(I)  ,1=1,10)  ,ITTN3,CNDfiTE(I)  , 
11  = 1,10)  ,V0LTi,V0LT2,TENPl,TEMP2,(LTLl(I)  ,1  = 1,20) 

PUT  riEflSURED  DRTR  ON  TRPE 

2025  F0RMflTC"R" ,10fl2,I2,10fi2,2F7.3,2F7.2,28fl2) 

WRITE ( 18,2027)  ( VMGl  CD  ,1  = 1 ,288) 

WRITE  C 18 ,2027)  (VRG  ( I ) ,1  = 1 ,288) 

W R I T E ( 1 8 , 2 0 2 7 ) C G R G C I ) ,1  = 1 ,238) 

URITE(18,2  027)  CGNGCI)  ,1  = 1,288) 

2827  FORMAT  ( 2 8 ( 1 0 E 1 2 , 7 ^' ) 10E12 .7) 


ORDER  PHASE  STARTING  WITH  GANG  (1,1) 

CALL  PHORD ( GANG  (1,1)) 

DO  2060  J=2,9 

2030  IFCGRNGCl  ,J-1)-GRNG(1  ,J)+90. 0)2040, 2040, 2050 
2 0 40  GRNGCl  ,J)=GRNG(1  ,J)-36  9.0 
GO  TO  2030 

2050  CALL  PHORD (GANG  ( 1 ,J)  ) 

2 0 6 0 C 0 N T I N U E 

PROCESS  DATA  AND  PRINT  OUT  ON  VERSRTEC 
SW  1 IS  0UAL  LONG  FORM  OPTION 

SET  SUM  GAIN  TO  8 
S U M G = 0 . 0 
C SET  S LI M C G A I N ) 1 2 TO  0 

SUMG2=0 
C 

DO  2 100  I I=.l  ,9 

C INITIALIZE  VALUES  TO  FIRST  PHASE  STATE 

G M A X = G M fi  G ( 1 ,11) 

G M I N = G M fl  G f 1 ,11) 

VMAX  = VnRG  ( 1 ; I I) 

VAVG=VMRX 

* PH0  = GAHG ( 1 , I D 

P H M A X,  = 8 .0 
SUMF  2 = r'HriAX 
SUMG  = SUKG-^GMRG  (1,11) 

S U M G 2 = S U M G 2 + G N A G D , I I ) * G M A G ( 1 ,11) 


0^4 


o o o o o o n o o o o o o 


POGE  4 


f 

I 


c 


C PHASE  LOOP 

DO  2150  1F=2,32 

C DETERMINE  REFLECTION  COEFF  MAX 

I F ( V M A G ( I P , I I ) - V M A X ) 2 9 7 0,2070,2065 

2 0 6 5 V M A X = V M A G ( I P , I I ) 

C DETERMINE  SUM  REF.  COEFF. 

2 0 7 0 V A V G = V A V G + V M A G ( I P , I I ) 

C DETERMINE  VOLTAGE  GAIN  MAX 

IF  (GMAG  ( IP  , in  -GMAX)  2030,2080,2075 
2075  GMAX=GMAG(IP,in 
C DETERMINE  VOLTAGE  GAIN  MIH 

2030  IF(GNIN-GMAG(IP,in)  2090,2090,2085 
2035  GMIN=GMAG(IP,in 
C DETERMINE  SUM  OF  VOLT  GAIN 

2090  SUMG=SUMG+GMAG(IP,in 
C DETERMINE  SUM (VOLT  G0INJt2 

S U M G 2 = S U M G 2 + G M A G ( I P , I n # G M A G ( I P , I I ) 

C DETERMINE  DELTA  PHASE 

DELP  = PH0-GANG  ( I P , 11) 

C DETERMINE  DELTA  PHASE  ERROR 

DDELP  = DELP- ( 1 1 .25#FL0AT ( IP-1  ) ) 

C DETERMINE  DEL  PKRS  ERR  MAX 

IFi;ABS(DDELP)-HiiSCPHNAX)  3 2150,2150,2095 

2 0 9 5 P H M A X = D r E L P 

C DETERMINE  SUM  (DEL  PHAS  ERR)t2 

SUMP2  = SUMP 2 + DDELP*DDELP 
C 

2150  CONTINUE 

ON  A PER  FREQ  BASIS 

CONVERT  MAX  RHO  TO  VSUR  MAX 
A M A X V ( I I 3 = ( 1 . 0 + V M A X ) /-  ( 1 . 0 - V M A X 3 
CONVERT  A V G RHO  TO  MEAN  V S W R 

A M E N V ( I I ) = ( 1 . 0 + ( V A V G / 3 2 . 0 3 3 x ( 1 , 0 - ( V A V G •>'  3 2 . 0 3 3 
CONVERT  MAX  PHASE 
A M A X P ( I I 3 = F H M A X 
CONVERT  RMS  PHASE 
R M S P H ( I I 3 = S Q R T { S U M P 2 /■  3 2 . 0 3 
CONVERT  VOLT  GAIN  MAX  TO  MAX  GAIN  DB 
DBGMX(II3=20.*ALOG(GMAX3''ALOG(10.03 
CONVERT  VOLT  GAIN  MIN  TO  MIN  GAIN  D B 
DBG M 1(113=20. *ALOG(GMIH 3 /ALOG(10. 03 


2100  CONTINUE 

CONVERT  TO  MEAN  GAIN 

DBGME  = 20  .»ALOG  (SUMG>'288  .©)  ^ALOG  (10.0) 

CONVERT  TO  RMS  GAIN 

PMSG  = 20.*ALOGCSQRT(  (SUMG2-(SUMG*SUNG/288.03  3^283.03  3/ 
1 A L 0 G ( 1 0 . 0 3 


PRINT  S E Q U E N C E - - S H 0 R T FORM 

CALL  CLEAR  (-3  3 
UPITE(11  ,29993 

2 9 9 9 F 0 R 1 1 A T ( 1 CM  / / 3 3 
C 

3 9 0 0 W R I T F.  ( 1 1 ,3005/  ( i J S E P ( I 3 , m ,103 

3 9 05  F 0 R M A T ( - S E R . N 0 . ‘ , 1 P A 2 , 5 X . " R E C E I V E R " 3 

!J  R I T E ( I 1 , 3 9 1 0 I ( N I V.  T L*  ( 1 3 ,1  = 1,10  3 


ca7 


3010  FOR  MflTC  DOTE;  ",1002) 

«RITE(11  ,3015)VOLT1  ,V0LT2 
30  15  FORMPT  ( " VOLT  1 = “ ,F7 . 3 ,2CX  , " V0LT2="  ,F7 .3) 

WR  I T E ( 1 1 , 30  2 0 ) T E N P 1 , T E tl  P 2 

30  20  FORMOT ( "TEMPI  ,F?  . 1 , " DE S . C " , 1 OK  , “ TEMP2= ” , F7 . 1 , "DEG  .C"  ) 

ttRITE(ll,3025)  (LTLl  (1)  ,1=^1  ,20) 

3025  FORMPT (2002') 

ITTN1=  ( ITTH-1 ) *2 
MRITE ( 1 1 ,3030)  ITTNl 
30  30  FCRMOT  ( "RTTNUflTION="  , I 2 , " D B . " ^' ) 

WRITE(11,3  035)  (F(I)  ,1  = 1,9) 

3035  FORKflT("FREQ.",3X.9(2X,F4.0)) 

URITEdl  ,3040)  (flMRXVn)  ,1  = 1 .9) 

3 0 4 0 F 0 R n 0 T ( " V S U R M 0 X " , 9 ( X , F 5 . 2 ) ) 

WRITEtll  ,3045)  (fiMEHV(I)  ,1  = 1 ,9) 

3 0 4 5 F 0 R M fi  T ( " V S W R M E fi  H " , 9 ( X , F 5 . 2 ) ) 

U)RITE(11,3050)  (RMRXPd)  ,1  = 1,9) 

30  50  F0Rt1flT("MfiX-PH-ER“,9(X,F5.1)  ) 

8RITE(11,3055)  (RMSPHCI)  ,1  = 1,9) 

3055  F0RMRT("RMS-PH-EP",9(X,F5.1)) 

WRITE(11,3000)  (DEGMXri)  ,1  = 1,9) 

3 0 60  F 0 R M fi  T ( " M n X - G N - B B " , 9 t X , F 5 . 1 ) ) 

0RITE  ( 1 1 ,3065)  (DBGMI  ( I ) , 1 = 1 ,9) 

30  65  FORMRT ( "MIN-GN-DE"  ,9  (X  ,F5 . 1 ) ) 

WRITE(ll,307e)  (GRHG(1,I)  ,1  = 1,9) 

3070  FORMflT("INS  PHRS  ",9(X,F5.0)) 

»R  I TE  £.1  1 , 3075  ) DEGME 

3075  FORMRT (" OVERRLL  MEfiN  G R I N = " , F5 . 1 , " D B . " ) 

4»«ITE  ( 1 1 ,3080)  RMSG 

3080  FORMRT("STD.  DEVIRTIOH  IN  OVERRLL  G R I N = " , F 6 . 1 , “ D B . " ) 

PUT  PROCESSED  BRTfi  ON  TAPE  WITH  ENDFILES 
CRLL  PRGE 

WRITE  £ 18 ,30  90)  (RMRXV  ( I ) ,1  = 1,9) 

WR I T E f 1 8 , 3 0 9 0 ) ( fi  M E N V ( I ) ,1  = 1,9) 

I»RIYE(18,3090)  (RMRXPd)  ,1  = 1,9) 

WRIT’E  ( 1 8 ,30  90  ) ( RMSPH  ( I ) ,1  = 1,9) 

WH  f T E ( 1 8 ,3  0 9 Q ) ( D E G M X ( I ) ,1  = 1,9) 

WR I T E ( 1 8 , 3 0 9 0 ) ( D E G M I ( I ) ,1  = 1,9? 

WRITE£18.3090)  (GfiNGd,!)  ,1  = 1,9) 

WRI TE  d 8 , 3090?  DEGME  , RMSG 
3090  FORMAT  ( ?E  1 3 . 7 ) 

ENDFILE  18 
EHDFILE  18 
BflCKSPflCE  18 
BflCKSPfiCE  18 


SW  l'llP  = LONG  FORM  FOR  (3  URL 
I F d S P d ) ) 4 0 0 5 , 0 0 0 

4 005  WRITE  d 1 ,3005)  (HSEF  d ) ,1  = 1 ,10) 

W R I T E ( 1 1 , 3 0 1 0 ) ( N D M T E (I  ) , I = i , 1 0 ) 
WRITE ( 1 1 ,3015) V0LT1  ,V0LT2 
WRI TE  d 1 , 3820 ) TEMP  1 , TEMP2 


o o 


URITECll  ,3025)  (LTLl  (I)  ,1  = 1 ,20) 
URITECll  ,3030)  ITTNl 
WRITEdl  ,3  035)  (F(I)  ,1  = 1 ,9) 


PACE  6 


DO  4100  1=1,32 
DO  4101  J=1 ,9 

T E M P 9 ( J ) = V S W R C ( C M ( 2 * I - 1 , J ) ) 

T E M P 8 ( J ) = D B C ( C M ( 2 * I , J ) ) ‘ 

4101  CONTI NUE 

BIT=1  1 .25*rL0fiT ( I-l ) 

WRITE ( 1 1 ,4102)  BIT 

4102  FORMAT  ("  “ , F 6 . 2 , DEG.") 

WRITE  (11,4105)  ( T E M P 9 ( J ) , J = 1 , 9 ) 

410  5 F 0 R M A T ( " V S W R " , 5 X , 9 ( X , F 5 . 2 ) ) 

WRITE  (11,4110)  (TEMP8  ( J)  , J=1  ,9) 
4110  FORMAT (" GA I N-DB " , 2 X , 9 ( X , F 5 . 1 ) ) 

IF ( I-l ) 4115,4115,4120 

4115  WRJTE(11,4125)  (GRNG(1,J)  ,J=1,9) 

4125  FORMAT("IPHS",5X,9(X,F5.0)) 

GO  TO  4100 

4 12  0 DO  4 12  6 L = I , 9 

BANG  ( L)  = GANG  ( 1 ,i. ) - GANG  ( I .L) 

4126  CONTINUE 

WRiTE(ll,413e)  (BRNG(J)  ,J=1,9) 
4130  FORMATCTEL  P H A S E " , 9 ( X ' F 5 . 1 ) ) 

C 

4100  CONTINUE 
CALL  PAGE 
4000  CONTINUE 

GO  TO  1000 
END 


PfiGE  1 


PROGRAM  NRIIC2 


DIMENSION  NSER(10)  ,N3flTE(10)  ,LTL1  (20)  ,TENP(20)  ,GHGr288)  , 

1 G ft  N G ( 3 2 , 9 ) , G M A G ( 3 2 , 9 ) , A V S W R ( 3 2 , 9 ) , G A G ( 2 8 8 ) , 

2 V M G 1 (288)  , V M A G ( 3 2 , 9 ) , A M A K V ( 9 ) , 

3AMENV(9)  ,AMA.XF(9)  ,RMSPH(9)  ,PWPMX(9)  ,PWRMI(9)  , BANG  (9) 


COMMON  F ( 9 ) , P I MC  ( 9 ) , POMC  ( 9 ) , P V S i.-.l  R ( 9 ) , S2PNC  ( 9 ) , SAFMC  ( 9 ) 


EQUIVALENCE  (GRNG(1,1)  ,GNG(1))  ,(GNAG(1,1)  ,GAG(1))  , 
1 ( VMAG  ( 1 , 1)  , VMG  1 ( 1 ) ) 


C***********************  *************«■■: 
C 

C THIS  PROGRAM  CALIBRATES  THE  S.A. 

C THE  NADC  MEASUREMENT  SEQUENCE. 

C INPUT  COUPLER  ANIi/OR  PAD  INFO  IS 

C INPUT,  REFLECTED  AND  TRANSMITTED 


EQUIPMENT  AND  PERFORMS 


NECESSARY  . 

POWERS  ARE  MEASURED 


USING  SHORT  WINDOW  PEAK  POWER  METERS.  THE  WINDOWS  CAN 


BE  MANUALLY  MOVED  THRU 


PULSE.  AUTOMATIC  INPUT 


POWER  LEVELING  IS  USED  WHICH  IS  PROGRAM ABLE. 

A MAX  OF  30  SAMPLES  IS  TAKEN  A ''  EACH  TEST  CONDITIO N 
AND  IF  5 ARE  NOT  FOUND  ACCEPTABLE  FOR  AVERAGING, 

THEN  PROGRAM  GIVES  ZEROS  AND  P R 0 C E E D S . E Q U I P M E N T PULSES 
IN  STANDBY  UNTIL  OPERATOR  GIVES  OK  FOR  TEMPERATURE 
STABILITY.  PULSES  ARE  REMOVED  BY  HARDWARE  WHEN 
FREQ/- VOLT  / PHASER  POW  ERIN  CHANGES  ARE  IN  PROGRESS. 

HARD  COPY  AND  MAG  TAPE  OUTPUT. 


Q U A L . LONG  FORM  OUTPUT. 


REV  . 


5 ./  1 7 / ; 


L .LAVEDAN 


4 / 2 0 /•  7 7 


******************* 


SET  S.A.  INTERFACE 
C«LL  SETIP 

SET  UP  PULSE  GENERATOR 
CALL  SPLLG  ( 1 , 30 , 1 0 , 5 , 64 ) 
SET  TO  NOMINAL  INPUT  POWER 
CALL  INITP(-6.0) 


RHO1=0 . 1 1512925 
RHO2  = 0 .2302583  1 
DEFINE  FREQUENCY 
F ( 1 ) = 1235 
F i 2 ) = 1 2 6 0 
F ( 3 ) = 1 2 8 0 
F ( 4) = 1295 
r ( 5 ) = 1 3 0 9 
F (6)  = 1305 
F(7)=1320 
F ( 8 ) = 1 3 4 0 
F ( 9 ) = 1 3 6 5 
SET  FREQUENCY  TO 


S E Q U E N C E 


MIN  BA D 


oooo  o ooo  noooo 


T 


PfiGE  2 


C 


CfiLL  SETFR (F  (5)  ) 

TURN  OFF  OUTPUT  P 0 U E R 
CPLL  OP  LI  LG 


TRCiP  1 IS  RETURN  TO  MEfiSURE 
CfiLL  TRfiPfl) 

GO  TO  1000 


TRAP  2 IS  RETURN  TO  CflLIERfiTION 
CfiLL  TRfiP(2J 
GO  TO  50 


10  CfiLL  CLEfiR(0) 

WRITE (9 , 12) 

12  FORMfiT (21X , "***S .fi . TEST  P R 0 G R fi M ***"//" R E fi D COUPLER" 
1"  INFO  FROM  TfiPE?^”) 

CfiLL  HYEStITC) 

IF  t ITC)  14,16 

GET  COUPLING  INFO  FROM  KEYBOARD 


14  W R I T E ( 9 , 1 8 ) 

18  F 0 R M R T ( " T Y P E IN  THE  FOLLOWING  C 0 U P L I N G S " /•  " F R E Q . INPUT" 

1 " C 0 LI  P . ( + D B ) OUTPUT  C 0 U P . ( + D B ) " ) 

DO  20  1=1,9 

WRITE(9,22)F(n 
2 2 F 0 R M R T ( F 8 . 1 , " : ) 

R E fi  D ( 8 , * ) P I M C ( I ) , P 0 M C ( I ) 

20  CONTINUE 
GO  TO  50 


16  WRITE(9,24) 

2 4 F 0 R M fi  T ( " P 0 S 1 T I 0 N T fi  P E IN  DECK  # 2 " ) 

CfiLL  PAUSE 

R E fl  D ( 1 4 , * ) ( P I M C ( J ) , P 0 M C ( J 5 , J = 1 , 9 ) 

W R I T E ( 9 , 2 8 ) ( F ( n , P I M C ( 1)  , P 6 M C ( I ) ,1  = 1,9) 
2 8 F 0 R M fi  T ( 9 ( 3 F 1 0 . 2 -O  ) 

50  CfiLL  CLEfiRC0) 


MAKE  SURE  POWER  LOOP  IS  STILL  ON 

CfiLL  PLRST 
W R I T E ( 9 , 8 0 ) 

80  FORMAT ("PUT  MAG  TfiPE  FOR  DATA  IN  DECK  AND  ON  LINE") 
CfiLL  PAUSE 
W R I T E ( 9 , 8 5 ) 

8 5 F 0 R M P T ( " N E W TfiPE  ( Y OR  N )=■«•"  ) 

CfiLL  N Y E S ( I V ) 

I F n V ) 9 9.90 

90  ENDFILE  18 
E N D F I L E 18 
REWIND  18 
99  CONTINUE 

WR 1 TE ( 9 , 25 ) 

2 5 F 0 P N fi  T ( " D fi  T E : " , 2 0 X , " T , 1 0 I T " ^ " ) 

REfiD(8,30)NrfiTE 

3i 


on  o o o o o o o ooo 


PAGE  3 


30  FORMRT ( 20R2 ) 

PniN  = 23 .8 
PN0M=24 . 8 
PI1flX  = 25 .8 

CRL.IBRRTION  SEQUENCE 

100  CRLL  CLEflR(0) 

CALL  CRLSl 
1000  CALL  OPULG 
CALL  PLRST 

WRITE (9 , 1005) 

10  0 5 F 0 R M fl  T ( " S E R . N 0 . = " 2 0 X , " t , 1 0 r t " ^ " ) 

RERD(8,30)  (NSERd)  ,1  = 1,10) 

WRITE (9,1010) 

10  10  F 0 R M R T ( " R E M R R K S ; " 4 0 X , " t , 2 0 d " ^ " ) 

READ (8 ,30)  (LTLl  ( I ) , 1 = 1 ,20) 

WRITE (9 , 1015) 

1015  FORMAT ( "CONNECT  DEVICE  AND  THERMOCOUPLE ( 1 ) TO  DEVICE"/ 
1 " fl  N D PUT  SWITCH  2 DOW  H " ) 

CALL  BELL 
CALL  PAUSE 

SET  PHASE  RHD  AMPLITUDE 
CALL  SETPH(e,0) 

RESTORE  PULSE  GENERATOR 
CALL  RPULG 

• . TURN  ON  AT  Ft5)  AND  PNOM 
POWER  = PNOM-P I MC  ( 5 ) 

CALL  SETPUI(POWER) 

CALL  SETFR  (F  (5)  ) 

CALL  CLEAR(0) 

WR ITE ( 9 , 1020) 

1020  FORMAT ("PUT  UP  SWITCH  2 FOR  EXIT  FROM  TEMP.  LOOP") 

TEMPERATURE  LLOF CHAN  1 OH  DEVICE 

DO  1035  1 = 1 ,20 

CiRLL  TVOLD  ( 1 ,TEMP  ( I ) ) 

WR I TE (9 , 1025 ) TEMP  ( I ) 

1025  F0RMAT(F7.2) 

IF ( ISP (2)  ) 1068 , 1030 

10  3 0 CALL  D E L A Y ( 5 0 0 0 ) 

1035  CONTINUE 
1037  DO  1040  1=1,19 

TEMP ( I ) =TEMP ( I + 1 ) 

1040  CONTINUE 

CRLL  TVOLD  ( 1 ,TEMP (20)  ) 

CALL  CLEPROi 
W R I T E ( 9 , 1 0 2 0 ) 

URITE(9,ie4  5)  (TEMP  (I)  ,1  = 1,20) 

1045  FORMAT ( 20 ( F7 . 2/ ) ) 

IF(ISP(2))  1060,1050 
1050  CRLL  DELAY  (5(100) 

GO  TO  1037 

START  MEASUREMENTS 

POWER  INPUT  LOOP 

3JL 


oo  ooo  o ooooono  oo 


( 


page;  4 


rr 


n 


1060IIO  4 000  IPL=1,3 
IFLG  = 0 
EELPW=2-IPL 
PWRfl=26.8-FL0flTCIPL) 

CALL  CLEARf©] 

WR I TE ( 9 , 1 0o5 ) PWRA 

1065  FORMAT  ( "MEASUREIHG  FOR  POWER  LEVEL  OF  *•  , F 5 . 1 , " DBM  . ” ) 


CHAN1=TEMP  DEG.C  OF  MODULE 
CHAN2=TEMP  DEG.C 
CHAN 4=40  VOLT 
C H A N 5 = 1 2 VOLT 

CALL  TVOLD  ( 1 , TEMP  1 ) 

CALL  TVOLD (2  ,TEMF2J 
CALL  TVOLD (4  , VCLTl) 

CALL  TVOLD (5 ,V0LT2) 

BEGIN  FREQUENCY  LOOP 
DO  1200  IFR=1,9 

P 0 W E R = P W R A - P I M C Cl  F R .1 
CALL  SETPW (POWER ) 

CALL  SETFR (F ( IFR) ) 

INITIATE  A delay  AND  THROW  FIRST  DATA  OUT 

CALL  SETPH  (0,0) 

CALL  R5DAT (Al  , A2  ,F1  ,A3  , A4) 

BEGIN  PHASE  LOOP 
DO  1200  1ET  = 1 ,32 
IBT1=IET-1 
CALL  SETPH(IBT1,0) 

1030  CALL  R5DAT ( Al  , A2  ,F1  ,R3 jA4) 

IF  (A2)  1085,1089,1035 

1035  TMP=ABS(A2-S2PMC(IFR)-DELPW) 

I F ( T M P - . 3 ) 10  9 0,1070 

1070  WRITE (9 , 1075) TMP 

1675  F0RMAT("REF.CHAN.DIFF.=",F3.2,"DB.  --ACCEPT  IT?<-") 
CALL  NYES(ITC) 

IF(ITC)  1030,  1090 

1039  IFLG  = 1 

1090  TMP=ri-SAFMC(IFR) 

1095  IF(TMP)  1100,1105 
110  0 T M P = T M P + 3 6 0 . 0 
GO  TO  1095 

1105  IFCTM P-360,0)  1115,1110 

1110  T M P = T M P - 3 6 0 . 0 
GO  TO  1105 

1115  GANG  ( IBT  , IFR.1  =TMP 

T E M F 3 = - A 3 + P 0 M C ( I F R ) - 3 0 . 0 
G M A G ( I E T , I R ) = E X P ( R H 0 2 T E M P 3 ) 

T E MP  3 = - A 4 + P V £ W R ( I F R ) 

V M A G ( I E T , I F R ) = E P i R H 0 1 * ( T E M P 3 - P W R A ) ) 


J 


C 


33 


no  ooo  oo  oooo  ooo  ooo  nooo 


P«GE 


1200  CONTINUE 


P01JER  = PURR-FIMC  C 1 ) 

CRLL  SETPW (FOUER) 

GfiLL  SETFR  (F ( 1 5 3 

•OUTPUT  DflTO  TO  MRG  TAPE 
FIND  END  OF  TAPE 


2021  READ ( 18 ,20223 

2022  FORMRTtin 

IF  ( lEOF  ( 183  3 2023,2021 

2023  READ ( 18 ,20223 
IF(IEOF(1833  2024,2021 

2024  BACKSPACE  18 


PUTTITLEINFOOHTAPE 

UlRITEdS, 20253  (NSER(I3  ,1  = 1,103  ,PWRR,(NDATE(I3  , 

, 11=1,103 ,V0LT1,V0LT2,TENP1,TEMP2,(LTL1(I3  ,1=1,203 
2025  FORMRTC’T" ,10R2,F4.1 ,10R2,2F7.3,2F7,2,20R23 

PUT  MEASURED  DATA  ON  TAPE 

WRITE ( 18,202  7 3 t VMGl  ( I 3 , 1 = 1 , 288  3 
URITE(18, 20273 (GRG(I3  ,1=1,2883 
WRITE(18,20273  (GNG(I3  ,1=1,2883 
202  7 FORMAT(28(10E12.7.''3  10E12.73 


ORDER  PHASE  STARTING  WITH  GANG (1,1 3 
PORD  ORDERS  POSITIVE  PHASE  DELAY’ 

CALL  PORD (GANG (1,13 3 
DO  1240  J=2,8 

1225  IF (GANG ( 1 , J-1 3 -GANG ( 1 , J3 -99 .03  1235,1239 

1230  GANG  ( 1 , J3  =GANG  ( 1 , .J3  ■t-380 .0 
CO  TO  1225 

1235  CALL  PORD ( GANG ( 1 , J 3 3 
1240  CONTINUE 


ooo  o no  o o o noon 


PPGE  6 


K 


DO  1335  IP=2  32 

I F ( V H fl  G ( I P , I h - V M B X 1 13  0 5,1305,1300 

1300  VMflK  = VMRGCiP,in 
1305  VBVG  = VPVG  + VMflG  t I P , I 1) 

IF(GrifiG(IP.II3-GMflX)  1315,1315,1310 
13  10  GMflX  = GMfiG ( i F , I I ) 

13  15  I F ( G M I N - G M fi  G ( I P , in  ) 13  2 5,1325,1320 

13  2 0 G ri  I H = G M fl  G i I P , I I j 

13  2 5 S U M G = S U M G + G r.  fi  G ( I P , I I ) 

SUMG2=SUMG2+CGMflG(IP,in )*(GMflG(IP,in ) 
DELP=:GflNG  (I  P , in  -PH0 
DDELP  = DELP-(11  .25*FL0flT(IP-n  ) 
IF(BBS(DDELP3-flBS(PHrifiX3  ) 1335,1335,1330 

1330  PHMBX=rDELP 

SUMP2  = SL1MP2  + DDELP*DDELP 
1335  COHTINUE 


ON  fl  PER  FREQ  BASIS 
CONVERT  MAX  RHO  TO  VSWR  MAX 
RMAXV (I n = ( 1 . 0 + VMAX ) / ( 1 . O-VNAX ) 

CONVERT  A V G RHO  TO  MEAN  V S W R 
AMEHV  ( I n = C 1 . 0+  ( VAVG.'-32 . 0 3 3^(1  .0-  ( VRVG/  32 .033 
CONVERT  MAX  PHASE 
A M A X P n I 3 = P H M A X 
CONVERT  RMS  PHASE 
RMSPH(n3=SQRT(SUMP2/'32.03 
P W R M X ( 11 3 = G M A X 
PWRMI  (in  =GMIH 
1600  CONTINUE 

MEAN  POWER 
PWRME  = SUriG/238.0 
RMS  POWER 

RMSPW  = SQRT  ( (SUi'1G2/2  88 .03  - CPWRMESPWRME)  3 

PRINT  SEQUENCE SHORT  FORM 

CALL  CLERR(03 
WRITECll  ,29993 

2 9 9 9 F 0 R M A T ( 1 0 ( /•  / 3 3 
C 

3000  WRITEdl  ,30053  (NSERtn  ,1  = 1 ,183 
3905  FORMAT C "SER  . HO  . " , 1 0R2 , 5X  , " TRRNSM  I TTER  " 3 

W R I T E ( 1 1 , 3 0 1 0 3 ( N D A T E ( I 3 ,1  = 1,10  3 
3010  FORMAT (" DATE  : ",10R23 

WRITECll  ,39  1 53V0LT1  .V0LT2 
30  15  FORMAT ( "V0LT1  = " ,F7 .3 ,20X  , " V0LT2="  ,F7 .33 
WRITE ( 1 1 ,3020  3 TEMPI  ,TEMP2 

3 0 2 0 F 0 R M A T ( " T E M F 1 = " . F 7 . i , " D E G . C " , 1 6 X , " E M P 2 = " , F 7 . 1 , " D E G . C " 3 

W R I T E ( 1 1 , 3 0 2 5 3 ■;  L T L,  1 t i 3 ,1  = 1,203 
3025  FORMAT ( 2002/ ) 


WRITECll, 3830  3 PWRA 

3030  FORMAT ( " I NPUT  P 0 W E R = " , F 4 . 1 , " D B M . " 3 


o o o o o 


rr 


\ 

1 

' ( 

PAGE  7 


I I 


3 0 3 3 FORMAT  C " " ) 

URITE(11  ,3035)  (FCn  ,1  = 1,9) 

30  3 5 F 0 R M A T ( " F R E G!  . " , 3 X , 9 ( 2 X , F 4 . 0 ) ) 

WRITECll  ,3040)  (AMAXV(I)  ,1  = 1 ,9) 

3 0 4 0 F 0 R M A T ( " V S W R MAX  " , 9 ( X , F 5 . 2 ) ) 

VRITE  ( 1 1 ,3045)  I AMENV ( I ) , 1 = 1 ,9) 

30  4 5 FORMAT  ("VSWR  M E A N " , 9 ( X , F Li  . 2 ) ) 
yRITE(ll,3  050)  (RMOXP(I)  ,1  = 1,9) 

30  5 0 FORMAT (" MAX-PH-ER  “ , 9 ( X , F5  . 1 ) ) 

URITE(11,3055)  (RMSPHCI)  ,1  = 1,9) 

30  55  FORMAT  C “RMS-PH-ER  " ,9  (X  ,F5 . 1 ) ) 

WRITE ( 1 1 ,3060)  (PWRMX ( I ) , 1 = 1 ,9) 

3060  FORMAT ( " M A X - P U R - W " ,9 (X ,F5 . 1 j ) 

W R I T E ( 1 1 ,3065)  ( P W R M I ( I ) , T = 1 , 9 ) 

3 0 6 5 F 0 R M A T ( " M I N - P W R - 0 '■  , 9 ( X , F 3 . 1 ) ) 

WRITE ( 1 1 ,3070)  (GANG  ( 1 , I ) ,1  = 1,9) 

3070  FORMRTC'INS  PHRS  ",9CX,F3.0)) 

W R I T E ( 1 1 , 3 0 7 5 ) P U R M E 

3 0 7 5 F 0 R M A T ( •'  0 V E R A L L MEAN  PERK  P 0 W E R = " , F 5 . 1 , " W A T T S " ) 

WRITE ( 1 1 ,3080) RMSPW 

3080  FORMAT ("STD.  DEVIATION  IN  OVERALL  PERK  P 0 W E R = " , F 5 . 1 , 
1 " U A T T S " ) 


PUT  PROCESSED  DATA  ON  TAPE 
WITH  ENDFILES 
CALL  PAGE 

WRITE(18,3090)  (RMAXV(T)  ,1  = 1,9) 

W R I T E ( 1 8 , 3 0 9 0 ) C A M E N V ( I ) ,1  = 1,9) 

I T E ( 1 8 , 3 0 9 0 ) ( A r i A X P ( I ) ,1  = 1,9) 

«R ITE ( 1 8 ,3090)  ( RMSPH ( I ) , I = 1 , 9) 

W-RI  TE  ( 1 8 ,3090)  (PWRMX  ( I ) , I = 1 , 9 ) 

UR  I T E ( 1 S , 3 0 9 0 ) C P W R M I ( I ) ,1  = 1,9) 

W R I T E ( 1 8 , 3 0 9 0 ) ( G A N G ( 1 , I .i  , I = i , 9 ) 

W R I T E ( 1 8 , 3 0 9 0 ) P W R M E , R M S P W 
3090  FORMAT ( 9E 1 3 . 7 ) 

E N B F I L E IS 
ENDFILE  18 
BACKSPACE  IS 
BACKSPACE  18 

• * 

SW  1 UP=  LONG  FORM  FOR  GURL 
IF  (IFLG)  4005,4004,4005 

4004  IF(ISP(1))  4005,4000 

4005  URITECll  ,3005)  (HSER(I)  ,1  = 1 ,10) 

WRITE ( 1 1 ,30  10)  (NDATE  ( I ) ,1  = 1,10) 

WR I T E ( 1 1 , 3 0 1 5 ) V 0 L T 1 , V 0 L T 2 

WR 1 1 E C 1 1 , 3 0 2 0 ) T E M P 1 , T E M P 2 
WRITE(11,3025)  (LTLl(I)  ,1  = 1,20) 

W R I T E ( 1 1 , 3 0 3 0 ) P N R A 
W R I T E ( 1 1 , 3.0  3 5 ) C F ( I ) ,1  = 1,9) 

DO  4100  1 = 1',  32 
DO  4 10  1 J = 1 , 9 

VNRG  (I  , J ) = ( 1 . G + VMPG  C I , J ) ) •••'  C 1 . 0-VMAG  ( I , -J  ) ) 

4 101  CONTI  hue: 

B I T = 11  . 2 5 * F L 0 n T ( I - 1 ) 

WRITE(11,4102)  BIT 
4 102  FORMATC  " , F 6 . 2 , “ DEG.") 

W R I T £ ( 1 1 ,4105)  ( V M A Q ( I , J ) , J = 1 , 9 ) 


3C> 


PAGE 


4 105  FORMAT ( " VSWR  " , 5 X , 9 C X , F 5 . 2 ) ) 

W R I T E ( 1 1 ,41103  C G M A G ( i , J ) , J = 1 , 9 ) 
4 110  F 0 R M fi  T ( " M fi  X - P W R - U!  " , 9 ( X , F 5 . 1 3 3 
IF(I-13  4115,4115.4120 

4 115  U R I T E ( 1 1 , 4 1 25  3 ( G P N G ( 1 , J 3 , J = 1 ,93 
4 12  5 F 0 R M R T C " I F H S ■'  , 5 X , 9 ( X , F 5 . 0 3 3 
GO  TO  4100 
4120  DO  4126  L=l,9 

ERHGC  L3=GRNG(I  ,L3-GfiNGri  ,L3 
4126  CONTINUE. 

W R I T E ( 1 1 , 4 1 3 0 3 ( B P N G ( J 3 , J = 1 , 9 3 
4 13  0 F 0 R M P T ( " D E L P H R S E " , 9 ( X , F 5 . 1 3 3 

4100  CONTINUE 
CRLL  PAGE 
4000  CONTINUE 

CALL  SETFR (F  t53  3 
CALL  SETPU(-6.03 
CRLL  OPULG 

GC  TO  1000 
END 


ooooonoooo 


PRGE  1 


rr 


SUBROUTINE  CRLSl 

COMMON  F ( 9 ) ,P  IMC  ( 9 ) , FONC  ( 9 ) ,PVSWR (9 ) ,S2PHC ( 9 ) , 
ISRFMC (9)  , 


CRLIBRRTION  ROUTINE  FOR  S.fl.  HRDC  PROGRAM 
INCLUDING  VSWR  AND  VERIFICRTION 


REV . fl  RPR  .21  ,1977 


#******************•■¥**: 


INITIAL  SETUP 


10  CALL  SPULG  ( 1 ,30 , 10 ,5 , 161 
P01JER  = 24 .3-PIMC  (5) 

CALL  S E T P W ( P 0 W E R ) 

CALL  SETFR  CF  (53  ) 

WRITE (9 , 1 101 

110  FORMAT ( "ADJUST  POWER  LEVEL  FOR  ZERO  VOLTS") 

CALL  BELL 

CALL  PAUSE 

PCWER  = 26  , S-P I MC ( 5 3 

call  SETPW (POWER) 

WRITE(9,1003 

/ 100  FORMAT("MRN.  GAIN  OF  MODULE  (DE3:'(-") 

READ(8,*)GMRX 
GHAX  = -GMnX-2 .0 
WRITE  (9,1  20  3 GMAX 

120  FORMAT  ("  AD JUST  RECEIVER  GAINS  AS  FOLLOWS:"^ 

1-"REF.  CHANNEL...  “2.0  DB."/ 

2 "TEST  C H A N 3 ! E L ' 'V  8 . 1 " D B " / " T 0 CONTINUE,  LIFT  SWITCH  8 " ) 
130  CALL  RRPHD (A1  ,R2  ,F1  ,R3  ,R43 
IF(ISP(8))  140,139 
140  CALL  R5DAT(A1,R2,F1,R3,R4) 

WRITE (9, 1503 

15  0 F 0 R M A T ( " P U T SWITCH  8 DOWN") 

C-ii  L L BELL 

160  IF(ISP(83)  160,165 
165  CALL  SPULG  ( 1 ,30.,  10 ,5 ,643 
CALL  DELAY (203 

CALL  R5DRT(A11,R21,F1,R3,A43 
TMP  = -20. 91515 
A 1 = A 1 + T M P 
R2=R2+TNP 

fcTRlTE  (9,170)  R1  ,R2  ,Ri  1 ,R21 
170  FORMAT ( "TEST  AMPLITUDE  READINGS  WERE:" 

1 /"EXPECTED:  TEST  CHANNEL="F6.1"  REF.  CHRNNEL="F6.1 

2 /"MEASURED:  TEST  C H A N N E L = " F 6 . 1 " REF.  C H A N N E L = " F 6 . 1 

3 /"OK  TO  C C N T I N U E ? <-  " 3 
CALL  NYESdTC) 

I F ( I T C ) 10,200 

200  CALL  CLEAR(03 
DO  230  1=1,9 
210  CALL  SETFR (F(n3 

P0W£R  = 24 .8-RIMC ( I 3 
CALL  S E T P W ( P 0 W E P 3 
CALL  D E L A Y ( 2 0 5 


I 


3^ 


CRLL  RSDflTfCll  ,S2PMC(n  jSflFMCd)  ,P3,fl4) 

220CONTINUE 

240  CflLL  SETFR  (F  ( 1 )) 

PCWER=24.0-FIMC(n 
WRITE  (9,250) 

2 5 0 FORMAT  ("VERIFY  C R L I B R R T I 0 N ? <■  “ ) 

CflLL  NYES(ITC) 

IF  (ITC)  299,260 
260  DO  280  I = i , 9 

POWER  = 24.8-PINC(I) 

CflLL  SETFR ( F ( I ) ) 

CflLL  SETPW (POWER) 

CflLL  D E L fl  V ( 2 0 ) 

CflLL  R5DflT (fll  ,fl2  ,F1  ,fl3 ,fl4) 

. fl2=fl2-S2PMC(I) 

Fl=Fl-SflFMC(I) 

1000  IF  (Fl)  1001,1095 

1001  Fl  = Fl  + 360.0 
GO  TO  1000 

1005  IF  (Fl-360.0)  1010,1096 

1006  Fl  = Fl  - 369.0 
GO  TO  1005 

10  10  fl  3 = - fl  3 + P 0 M C ( I ) 

WRITE  (9,270)  F(I),fl2,Fl,fl3 
270  FORNflT(4F10.2) 

230  CONTINUE 
GO  TO  240 
290  CALL  CLEflR(0) 

WRITE  (9,300) 

300  FORMAT  ("CONNECT  SYSTEM  flS  FOLLOWS :"x 

1 "VSWR  POWER  METER  TO  VSWR  PORT"^' 

2 "SHORT  ON  MOBLILE.'H  I-POWER  PORT  AT  END  OF  CABLE") 

CALL  PAUSE 

DO  350  1=1,9 

POWER  = 24.8  - PIMC(I) 

CflLL  SETFR  ( F ( I ) ) 

CRLL  S E T P W ( P 0 W E R ) 

CALL  D E L fl  Y ( 2 0 ) 

CflLL  RlDflT(R4) 

SVSWR(I)  IS  TO  EE  SUBTRACTED  FROM  A4  DURING  MEASUREMENT 
P V S W R ( I ) = 2 4.3  + fl  4 

350  CONTINUE 

CALL  CLEflR(0) 

CRLL  S E T F R ( F ( 5 ) ) 
call  S E T F’  W ( - 6 , 0 ) 


0 0^)0  oo  oooo  o ooooonooooooooooo 


PRGE  1 


SUBROUTINE  BORIS (F) 

DIMENSION  F(2)  ,C(6)  ,IC(12)  ,CRL(6,2)  ,TEMr2,9) 
COMMON  IE  ( 1 n , IS  (2}  , I 1 (3)  , INFl.i  ,rC0  , iCRL  ( 12 ,2) 
EQUIVRLENCE  ( C , I C ) , ( CRL  , I CRL I 

C ■ 

C »**«■♦****♦***  ***********  S ************^--*'***T********-S 

THIS  IS  fl  ONE  FRTH  CALIBRATION 
6 PARAMETER  ERROR  MODEL 
CALLED  BY  BORIS(F) 

WHERE  F IS  START  FREQUENCY  ARRAY 
INEU  IS  FLAG  TO  TRAP  CALL,  SET  TO  - AT  END 
OF  NORMAL  CALIBRATION 

BORIS  SHEHEG  MAR.  4.1977 
REV  I APR  26,1977 

THIS  IS  MODIFIED  CALBl 


************************** 


INITIALIZE  AND  DEFINE  CONSTANTS 

DEFINE  S 1 1 AND  S 2 1 FOR  COM  M 0 N A N D M C 0 P 1 
IS i 1 ) =1 1 
IS (2) =21 


Fl =F  ( n 

CALL  FCRLFCFl) 

CALL  BCNT  1 (F  1) 

CALL  CPRK2  ( 1 .0 ,0 .0  ,Cn 

MEASURE  LOADS 


75  CALL  SSEL 1 (11) 
N=1 
MN=1 

FP=1 


110  K 0 P = 3 

URITE(2,905) 

905  F0PMRT("P0RT  1:  CONNECT  FEMALE  SMA  LORD") 
CALL  PAUSE 
GO  TO  9000 


MEASURE  CROSSTALK 

200  CALL  FRE02(F1) 

WR I TE ( 2 , 908 ) 

90S  FORHAT("CONNECT  FEMALE  SMA  LOADS,  TWO  PORTS  FOR  ISOL 
CALL  SSEL  1.  (21) 

CALL  PAUSE 
IP  = 5 
K0P  = 4 
M=.  1 

GO  TO  9000 


TEST  FOR  DESTINfiTION 


MEASURE  SHORTS 

305  CALL  SSEL 1 (11) 

CALL  FREQ2(F1J 
IP  = 2 
K0P  = 5 

310  WRITE(2,913) 

913  FORMAT  (■•  PORT  1:  CONNECT  SMA  FEMALE  SHORT") 
CALL  PAUSE 
M=  1 

GO  TO  9000 


MEASURE  OPEN 


4 9 0 M = 1 
IP  = 3 
K 0 P = 6 

430  CALL  FREQ2(F1) 


430  lilRITE  (2 .930) 

930  FORMAT (" PORT  1;  CONNECT  SMA  FEMALE  OPEN") 
CALL  PAUSE 
GO  TO  9000 


550  RAD=2.0*ATAN(0.032#FL*3.14159E-4) 
T3=l  .0 

560  CALL  CSUE2(C(1),C(2),T1) 

CALL  CSUB2 (C  (3)  ,C  ( i ) ,T2) 

CALL  PSFT2 (0 .0  , t3  , RAD  , T2  , T3) 

530  CALL  CSUE2 (T3  ,T1  ,T3) 

CALL  CADD2  CT2  ,T1  !,T4) 

CALL  CDI V2 (T3  ,T4  ,T5) 

CALL  C0DD2(C1,T5,T3) 

CALL  C M P Y 2 r T 3 , T 1 , C ( 2 ) ) 

C (3) =T5 
GO  TO  9250 


CONNECT  THRU  S 1 1 AND  S 2 1 
0 0 5 W R I T E ( 2 . 9 3 3 ) 

935  FORMAT (" CONNECT  THRU  FEMALE^FEMALE  SMA  ADAPTER") 
CALL  FREQ2(F1J 
CALL  PAUSE 


ooo  oooon  oo  o opoo  no 


( 


PPGE  3 


REFLECTION 


1010  I P = 6 
K0P  = 7 

CO  TO  9000 


. - TRPNSMISSION 

1500  IP=4 
KQP  = 8 
I1  = M2 

COLL  SSELl (21) 

GO  TO  9000 

1030  RL1  = 1 .22 

T4=RL 1 *4 . 1 93E-4 

CRLL  CSUB2  CC  (6)  ,C  ( 1 ) ,T1  ) 

CRLL  CMPY2 (T1  ,C  ( 3)  ,T2) 

GALL  CRDD2 (T2  ,C (2)  ,T2) 

CRLL  CDIV2 (T1 ,T2 ,C (6) ) 

CALL  PSFT2 (0 .0 ,FL .T4 .C (6) ,C (6) ) 
GO  TO  9250 


1130  .T3  = RL1*2 .0965E-4 

CALL  CSUB2 (C  (4)  ,C (5)  ,T1  ) 

CRLL  CMPY2(C(3)  ,C(6)  ,T2) 

CI^LL  PSFT2  (0 .0  ,FL  ,T4  ,T2  ,T2) 

CRLL  CSUB2 (Cl  ,T2  ,T2) 

CRLL  CMPY2 ( T2 , T 1 , C ( 4 ) ) 

GALL  PSFT2(O.0,FL,T3,C(4),C(4)) 
GO  TO  9250 


RETURN  TO  MAIN  PROGRAM 


2000  CRLL  FREG!2(F1) 
lt*EW  = -l 

ir70  CRLL  CLERR(0) 

1172  UR  I TE ( 9 , 1 1 75 ) 

1175  FORMAT  I " VER  I FY  C A L I B R R T I 0 N ( Y OR  N)?<-") 
CRLL  NYES(Nn 
IF(Nl)  1180,1185 
1105  CALL  CLEAR (0) 

WRITE(9,1190) 

1190  FORMAT ( “CONNECT  THRU ") 

CALL  PAUSE 

VERIFICATION  MEASUREMENT  SEQUENCE 

CALL  BCNT 1 (F ( 1 ) ) 

CALL  SSEL  1 ( 1 1 ) 

BO  1200  1=1,9 
CALL  FREAa  r F ( I ) ) 

CALL  M E A S I ( 5 0 0 , V 1 , V 2 ) 
call  C P a K 2 ( V 1 , V 2 , V 1 ) 


442 


oo  o oooooo 


( 
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CfiLL  CSUB2  (VI  jCflL  ( 1 , I ) ,V1 ) 

CALL  GDI V2  iVl  ,CRL  (2  , I 1 , V2) 

CALL  CHFV2 ( V2 ^CfiL  (3  , I ) , V 1 ) 

CALL  CADD2(Cl,Vl,Vn 
C A L L C D I V 2 ( V 2 , V 1 , T E M ( 1 , I )) 

1200  CONTINUE 

CALLSSELl<2n 
DO  1210  1=1,9 

‘ CALL  FREQ2  ( F ( 1)  ) 

r CALLMERSl  (500  .VI  ,V2) 

CALL  CPAK2 (VI  ,V2  , VI ) 

i CALL  CSUB2(V1,CAL(5,I),V1]I 

CALL  CDI  V2  ( VI  ,CAL  (4  , I ) ,V2) 

CALL  CMPV2  (TEM  ( 1 , I)  ,CAL (3  , I ) ,V1 ) 

' CALL  CSUE2  (Cl  ,V1  ,V1  ) 

CALL  CNPY2  (VI  ,V2  ,TEM  (2  , I } ) 

1210  CONTINUE 
C 

CALL  CLEAR(0) 

DO  1220  1=1,9 
TEl=Ct1AG  (TEM  (1,1)) 

T E 2 = A N G ( T E M ( 1 , I ) ) 

T 2 3 = C M A 3 ( T E M ( 2 , I ) ) 
TE4=RNG(TEM(2,I) ) 

URITE(9,1222)F(I),TE1,TE2,TE3,TE4 
( 1222  FORMAT  (F4 .0 ,4 (5X  ,F9 .3)  ) 

1220  CONTINUE 

GO  TO  1172 
1180  CALL  CLEAR(0) 

CALL  FREQ2(F(1)) 

RETURN 


test  LOOP***^^*-*'****************-* 


9000  NAVEC=-5 
CRA  = 0 .2 

CALL  CPAK2(CRA,9.0,CRA) 
9010  FN=F(M) 

IT  1 =-  1 
M 2 = M 

CALL  FREQ2(FN) 

9100  MN  = t1+l 
F L = F N 
FN=F ( MN ) 


9130 

9552 


9150 


9 140 


CALL  MEASl  (100,71  ,T2) 
I F ( 9 - M N ) 9 5 5 2,9150 

IT1  = 1 

GO  TO  9140 
CALL  F R E Q 2 ( F H ) 

CALL  CPAK2 (Tl ,T2 .71 ) 
IF(NAVEC+5)  9220,9220 


9200 

4^ 


^200 

9220 

9230 

92  4 0 

9250 

9260 

9390 

9320 

93  10 
9330 


CPLL  CfiDD2fCPIL(IP,M),Tl,Tl) 

CPL ( IP  ,M) =T1 

Tf(HRVEC+n  9300,9239 

CALL  C M P V 2 ( C R R , T 1 , C fl  L f I P , M)  ) 

BO  9240  N=  1 , 1 2 

I C ( N ) = I C R L ( N , M 1 

SO  10(9300,200,9300,9300,9300,550,1030 
rO  9260  N=l-,12 

JCfiL  (N  ,Mi  =IC  (n;i 

IF(ITl)  9320,9310 
M = MH 

CO  TO  9100 
N R V E C = H fl  V E C + 1 
IF(HflVEC)  9330,9928 
M = ri  2 

(50  TO  9010 


,1130) KOP 


H 

•I 


99  20  GOTO(2e0, 200, 200, 305, 400, 1005, 1500, 2000)KOP 


I 


r 


i 


APPENDIX  III 


10  Drivers: 

MCORl  Is  a driver  for  calling  the  various  microwave  equipments 
necessary  for  an  actual  receiver  measurement.  It  Is  similar  to  a 
Hewlett  Packard  program  by  the  same  name  but  has  been  tailored  speci- 
fically for  receiver  module  measurements.  It  Includes  a call  to  set 
the  phase  (and  amplitude)  of  the  receiver. 

SIGDR  Is  a four  entry  subroutine  that  controls  and  levels  the 
transmitter  Input  power  on  an  Interrupt  basis. 

SETPH  Is  a subroutine  used  to  control  the  phase  and  attenuation 
settings  of  the  module  for  both  transmit  and  receive. 


1 


{ 


POGE  1 


N R M M C 0 R 1 ; 

E N T M C 0 R 1 

EXT  .ENTR,FREQ2,MEflSl,CPflK2,CflriD2,CMPY2,CDIV2  ] 

EXT  CSUE2,SSEL1,BCNT1, FLOAT, HE NDFjSETPH  > 

COM  DMYl  t 1 n ,IS  (2)  ,DMY2  (6)  ,CflL  j 

* i 

****************  ^ * ^ * * * * * * if  ^ * * * * ^ * ^ **********  ^ * * m * * * ^ ^ * * ^ * * * * * j 

* MAKES  CORRECTED  MEASUREMENTS  OF  TRANSMISSION  AND  ! 

* REFLECTION.  ACCESS  FREQUENCY  THRU  ARRAY  PASSED  THRU  i 

* MAIN  PROGRAM  1 

* FORM  OF  CALL  FROM  FORTRAN  IS:  CALL  M C 0 R 1 ( F 1 S T , C M ) ^ 

* WHERE  FIST  IS  THE  STARTING  ADDRESS  OF  THE  FREQUENCY  ARRAY  , 

* STORED  IN  THE  CALLING  PROGRAM.  AND  CM  IS  THE  CORRECTED 

*DATAARRAY,  j 

* j 

*IS(1)=11ANDIS(2)=21  i 

* I 

* CM  ARRAY  = CM (64 ,9)  | 

* i 

* REV.  D RPR  25,  1977 

* 

* MARCH  15,  1977  E.  SHELEG 

**********************************************  ******^^^^:j^:j(.*i(.^^^  ! 

* 


* 


FIST 

NOP 

CM 

NOP 

* 

MCORl 

NOP 

DATA  ARRAY  RDDP 

JSB 

.ENTR 

»EF 

FIST 

JSB 

E C N T 1 

BEAM  CENTER 

DEF 

* + 2 

DEF 

FIST  , I 

* 

* 

CL.A 

. INA 

SIR 

M 

L»A 

S 1 DEF 

IP=INDERECT  THRU  SI 

STA 

I P 

CL  A 

STA 

ITR 

FULL  REF.  AND  TRANS. 

* 

* ■SCAN  FOR  Sll  (IP  PRESET) 


* 


A1 

JSB 

SSELl 

SELECT  REFLECTION 

DEF 

# + 2 

DEF 

IS 

LDA 

CDI 

m 

S T A A T A 1 
INA 

S T A A T A 2 

JSS  ATI  START  MEASUREMENT 


* 


MEPSURE  S21 


PAGE  Z 


02 

ISZ 

I P 

S2  1 

NOP 

CCO 

STO 

I TR 

FLOG  ITR=-1 

LDO 

CD  I 

SET  UP  TROCKING 

ODO 

THRE 

ONE  LEOKOGE  COL  OBDRESSES 

STO 

OTOE 

I NO 

STO 

OTO  1 

JSB 

SSELl 

S2  1 

DEF 

* + 2 

BEF 

IS+1 

JSB 

OTl 

S T 0 R T M E 0 S U R E M E N T SCON 

* 

* 

010 

JSB 

FREQ2 

RESET  TO  FIRST  FREQ 

BEF 

* + 2 

BEF 

FIST  , I 

JNP 

NCOR  1 , I 

* 

^ ■ 

CORRECTION  FOR 

REFLECTION 

C 0 R R J S B 

C ri  P Y 2 

BEF 

* + 4 

BEF 

C3  , I 

BEF 

SI  , I 

BEF 

T1 

JSB 

CRBD2 

BEF 

* + 4 

BEF 

CONE 

BEF 

T 1 

BEF 

T 1 

JSB 

C D I V 2 

BEF 

* + 4 

BEF 

SI  , I 

S1=T1  lx-  ( 1+Tl  1*E1  1 ) 

BEF 

T 1 

BEF 

S 1 , I 

* 

* 

CORRECTION  TO 

S21  FOR  SOURCE  NOTCH  ERROR 

’K 

JSB 

C M P Y 2 

D=1-S1*E1 1 

BEF 

*■  + 4 

BEF 

S 1 . I 

BEF 

C3  , I 

BEF 

T 1 

JSB 

C S IJ  E 2 

BEF 

* + 4 

BEF 

CONE 

BEF 

T 1 

BEF 

T 1 

JSB 

CMPY2  • 

S21 =T1 *T21 

DEF 

* + 4 

DEF 

T 1 

DEF 

S2  , I 

DEF 

S2  , I 

J ri  P 

0T8 

^7 

i 


• « 


( 


PRGE  3 


* 

* 

TEST  LOOP 

fiT  1 

NOP 

ENTR 

Y POINT 

JSB 

FREQ2 

SET 

FIRST  FREQUENCY 

D€F 

* + 2 

B€F 

F 1 ST  , I 

LBfl 

DLY  1 

SET 

LONG  DELAY 

STfl 

IDLY 

Clrfl 

SET 

FIRST  PHASE 

STfl 

P 

JSE 

SETPH 

DEF 

* + 2 

EEF 

P 

CLfl 

STfl 

ITl 

HOT 

LAST  FREQ 

CCfl 

STfl 

I T3 

NEED 

NEW  CAL  IE  DATA 

OL« 

, INfl 

STfl 

M 

SET 

ri  = FIRST  FREQ 

* 

♦ 

JMP 

FITS 

RT2 

LDfi 

M 

SET 

UP  NEXT  FREQ 

INfl 

STfl 

MH 

C«fl 

■,  I H 0 

ADA 

NINE 

ITl  IF  IT1<0  DDIHG  LOST  FREQ 


SSfl 

JNP 

ATS 

LAST  F R E Q - - D 0 N T SET  NEW 

LEA 

M 

M = M N - 1 

ALS 

ADA 

F 1ST 

ADDRESS  OF  FREQ 

STA 

IFN 

SAVE  ADDRESS 

♦ 

* 

• 

flT3 

LDA 

P 

SET  UP  NEXT  PHASE 

INfl 

STfl 

P 

CM  A 

, INfl 

ADA 

D3  1 

STfl 

IT2 

SET  LAST  PHASE  FLAG 

SSfl 

»RS$ 

YES--NEXT  PHASE  IS  ZERO 

JWP 

AT  4 

CLfl 

STA 

P 

* 

flT4 

JSE 

M E fl  S 1 

READ  VOLTAGES 

DEF 

* + 4 

DEF 

IDLY 

DEF 

T 1 

DEr 

T2 

JSE 

SETPH 

SET  NEXT  PHASE 

DEF 

* + 2 

( 
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DEF 

P 

LDA 

DLY3 

STA 

IDLY 

LDA 

I T2 

SSA 

,RSS 

JMP 

ATS 

LDA 

SSA 

I T 1 

JMP 

ATS 

JSE 

FREQ2 

DEF 

* + 2 

IFN 

NOP 

LDA 

DL  Y2 

STA 

IDLY 

LDA 

Ml 

STA 

ITS 

* 

JMP 

AT51 

flT5 

LDA 

ITS 

SSA 

,RSS 

J M P 

ATS  1 

LDA 

M 

M P Y 

T W L V 

ADA 

CALD 

LDE 

M S I H 

STB 

C N T R 

LDE 

CDEF 

STA 

1 

ADA 

IHB 

TWO 

ISZ 

C H T R 

JMP 

CCA 

*-4 

ADA 

M 

M P Y 

0H28 

ADA 

CM 

STA 

S 1 

ADA 

TWO 

STA 

CLA 

S2 

* 

STA 

ITS 

AT51 

JSE 

CPAK2 

DEF 

* + 4 

DEF 

T 1 

DEF 

T2 

DEF 

T 1 

JSE 

CSUE2 

DEF 

* + 4 

DEF 

T 1 

ATAl 

NOP 

DEF 

T 1 

JSE 

CD  IV2 

DEF 

¥ + 4 

DEF 

T 1 

ATA2 

NOP 

DEF- 

IP  ,.I 

SET  SHORT  DELAY 

TEST  FOR  LAST  PHASE 
HO,  HO  HEW  FREQ 
WAS  LAST  FREQ? 

YES,  HO  HEW  FREQ 
HO,  SET  HEW  FREQ 

SET  MED  DELAY 

SET  HEW  CALIE  FLAG 

SKIP  HEW  CAL  SECTIOH 

HEED  HEW  CALIE? 

HO 

CALIE  ADDER  -12 

STORE  POINTERS 

-1  TO  A 

GET  DATA  SD DRESS 

SET  HEW  CALIE  FLAG  TO  NO 

PACK  DATA 

SUBTRACT  LEAKAGE 

DIVIDE  E Y TRACKING 

STORE  IN  .CM 

^9 


w 


( 


LDB 

I TR 

SSB 

JMP 

CORR 

* 

ATS 

LDA 

S 1 

ADA 

FOUR 

STA 

SI 

ADA 

TWO 

STA 

S2 

LDA 

IT2 

SZA 

,RSS 

JMP 

AT2 

SSA 

,RSS 

JMt" 

ATS 

LDA 

HN 

STA 

M 

LDA 

I T 1 

SSA 

, RSS 

JMP 

■ ATS 

GLA 

, INA 

STA 

M 

JMP 

AT  1 , I 

♦ 

♦ VARIABLES 

♦ ■ 

* 

M 

NOP 

IP 

NOP 

T1 

BSS 

2 

T2 

BSS 

2 

MN 

HOP 

I TR 

NOP 

» Til 

,T2 

2 USE 

CNTR 

NOP 

IDLY 

NOP 

ITl 

NOP 

I T2 

NOP 

IT8 

NOP 

P 

NOP 

NOP 

C2 

NOP 

C3 

NOP 

C4 

NOP 

C5 

NOP 

ce 

NOP 

SI 

•HOP 

S2 

NOP 

* 

■s 

* con ST  ANTS 


Ml 

DEC 

- 1 

TWO 

DEC 

O 

4. 

TH-RE 

DEC 

3 

FOUR 

DEC 

4 

SIDEF 

DEF 

S 1 , I 

CONE 

OCT 

49000 

OCT 

2 

D L Y 1 

DEC 

500 

.UL.  umwM 


RETURN  FOR  CORRECTION 


UPDATE  STORAGE 


LAST  PHASE? 

YES--SET  UP  NEW  FREQ 
FREQ  DONE? 

H 0 - - S E T UP  NEXT  PHASE 
STARTING  NEW  FREQ 


ALL  DONE? 

HO  NEXT  PHASE 

SET  UP  M AGAIN 


, C 2 , C 4 , C 5 


COMPLEX  ONE 


£0 


DLY2 

DEC 

1 0 0 

D L V 3 

DEC 

1 

D3  1 

DEC 

31 

0 N 2 S 

DEC 

128 

T u:  L V 

DEC 

1 2 

CaLD 

DEF 

CflL 

MSI  X 

DEC 

-6 

CLEF 

DEF 

C 1 

CD  I 

DEF 

Cl  , 

B1 

DEC 

-36 

H I fJE 

DEC 

9 

He 

END 


pneE 


NRM  SETPH 
ENT  SETPH 
EXT  .ENTR 


*♦•**»****•*******•*■*************•*•***#*»********■ 

* 8500  ECS  COMPPTflBLE  PHfiSE  PHD  PMPLITUDE 

* CONTROL  ROUTING 

* 

* . MRRCH  21,1 977 

* M . E . L P I N G 

» R E V . P M P Y 1 1 , 1 9 7 7 

* 

» CPLLIHG  SEQUENCE 

* CPLL  SETPHflPHPSEjIRTTin 

WHERE 


* 

I PHRSE 

I S 

R PHRSE  CODE  FROM  0 TO 

3 1 

OR  -1 

I F 

PREVIOUS  V R L U E IS  TO  EE 

USED 

* ■ 

IPTTN 

IS 

PN  PTTENURTOR  CONTROL  CODE 

* ' 

FROM  0 

TO 

7 OR  -1  IF  PREVIOUS  VRLUE 

♦ ■ • 

* 

IS  TO 

BE 

USED 

* * -5t  * * * * * ■ 

•3(-*»**Tt********  *****■*■*#•*■*•»*■; 

t -St  * * * 

T 

* 

jt 

SET 

CONTROL  CPRD  PDDRESSES 

*jr 

IPD 

EQU 

51B 

SEP 

IPHS 

BEF 

101 

EEF 

102 

Hr 

I PHS 

DEF 

103 

NOP 

PHRSE  WORD  PDDRESS 

I PMP 

NOP 

RHP.  WORD  REDRESS 

SETPH 

NOP 

ENTRY 

JSE 

• ENTR 

BEP 

IPHS 

LDP 

JPHS , I 

GET  PHRSE  CODE 

SSP 

• TEST  NEW  VRLUE 

LDP 

PHPS 

NO,  USE  OLD 

RND 

M M 3 7 

MfiSK 

STP 

PHPS 

S P V E 

PLS 

, PLS 

SH  I FT 

RLS 

STP 

TMP 

LDP 

I R M P , I 

GET  RMP  CODE 

SSP 

N E U VRLUE? 

LDP 

PMP 

No,  LORD  OLD 

PHD 

M M 3 

M fl  S K 

STP 

R M P 

s n V E 

ICR 

TMP 

COMBINE  RMP  RND  PHRSE 

I 0 1 

OTP 

IPD 

0 U T P U T 

102 

STC 

IPD  ,C 

S T 0 B E 

103 

CLC 

IPD  ,C 

T URN  C F F STRODE 

JM? 

SETPH, 

I 

EMIT 

* 

* 


PO&E 

HED  POWER  LEVELING  LOOP  ROUTINES 
NflH  SIGDR 

ENT  INITP,SETPU,PLOFF,PLRST 
EXT  .ENTR,  .DLD  , .FMP  , IFIX 
EXT  . r I V , . MPY  , SRFLR 

ypc  1 

****************** -S*-S*«-*«***»#*********#-)t***#***-*¥#»**^ 

# • 

* SIGNa.L  GENER9T0R  DRIVER  FOR  USE  WITH 

* S.n.  TEST  RACK. 

•*■ 

* CALLING  SEQUENCES 

* CALL  INI  TP  (POWER) 

* CALL  SETPW  (POWER) 

* . CALL  PLOFF  (VOLTS) 

* CALLPLRST 

■*  WHERE  POWER  IS  THE  DESIRED  LOOP  LEVEL 

» *•  IN  DEM,  AND  VOLTAGE  IS  DESIRED  VOLTAGE 

* SETTING  OF  THE  DVS.  POWER  MUST  BE  IN 

* THE  RANGE  +5.0  DEN  TO  +23.0  BEN,  AND 

* VCLTS  MOST  LIE  BETWEEN  -16.0  AND  +16.0. 

* I N I T P INITIALIZES  THE  POWER  LEVELING  LOOP 

* AND  SETPW  ALLOWS  THE  CHANGING  OF  THE  1. 0 0 P 

* LEVEL.  PLOFF  DISABLES  THE  LOOP  AND  SETS 

* THE  DVS  TO  THE  DESIRED  VOLTAGE.  PLRST 

* REARMS  THE  LOOP,  USING  THE  PREVIOUS 

* jPOVJER  LEVEL  AND  VOLTAGE.  ALL  ENTRIES 

* SET  BOTH  PERF  (POWER  ERROR  FLAG)  AND 
OfRF  ((3IJT  OF  RANGE  FLAG)  TO  1. 
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